aes a fee ge, | Hbee 


LABEL OOO0000000LINE O0178299CC EX O/RSCOMMONFISF ILE LINESLINE PRINTSFILE S=PATCHES/PASCALSEND] 


FILES PaTCHES/PASCAL THURSDAY 10/26/78 03159 PM 


$# PATCH 1 FOR PASCAL»XVI.O CONTAINS 10 CARDSe CQRRECT SPELLING & TABULATION 
$: PATCH TO CORRECT SPELLING In SOME ERROR MESSAGES» CORRECT TABULATION OF CODE 
$t OR COMMENTS» AND TO CORRECT THE CALL ON THE PROCEDURE TO GIVE A NEW PAGE. 


$1 wwe NOTE THAT ERROR(C71) IS NOW NO LONGER USED = SEE PATCH 513, 


$3 IS WAS USED ONCEs BUT INCORRECTLYs ERROR(63) IS CALLED IN ITS PLACEs 
$$ «ee NOTE THAT THE ALGOL CODF FILE "PASCRUN"/"DISK" HaS BEEN RENAMED 
$1 "PASCAL"/"PRELUDE™. IT IS NO LONGER REFERENCED DIRECTLY IN THIS COMPILER 
$! NILS A OTTE, UNIVERSITY mF NATALs DURBAN? AUG = NOV 1977, 
$i 
BEGIN 3% NULL Laws 4) REWRITE 50203000 
GENC "PUT" 5 395)3 Laws 5) PAGE 50204000 
GENC™PPAGE"2 55393 % 50208000 
BLOCKS %*e% COMPILE PROCEDURE BODY *** 80646000 
COMPSTAT3 Zwex COMPILE STATEMENT PART «#* 80691000 
C" 41 ALFA CONSTANTS MAy NOT BE LONGER THAN 7 CHARACTERS.")> 91045000 
¢* 55 PROCENURE NESTING DEPTH + NO OF RECORDS IS TOO GREAT,»")» 91060000 
(" 87 END*OF<INPUT ENCOUNTERED UNEXPECTEOLYe)s 91094000 
(" 97 TOO MANY FILES IN USEe")» 91104000 


END OF 85700 PASCAL COMPILERe ec eter rroerecesaeeetosevesesecencescceses ss PPDDLN0NN 


$# PATCH 2 FOR PASCAL CONTAINS 171 CARDS, 


$3 PATCH TO MERGE DAG LANGMYHRS PPP10 To PPP11i COSY PATCHES 

$3 WITH NILS OTTES MODIFIED PPP10 SOURCE. 

$3 DAVID A COOPER » HERIOT*WATT UNIVERSITY» JANUARY 1978. 

$t 

FILE CARD "SOURCE" (1210230)3 % SOURCE CODE FILE 


FILE LINES 1 (1517)3 % PRINT FILE 

FILE PASCALGOL DISK SERTJAL [(20:600] (€1210/30sSAVE 0)3 % CODE FILE 
ARRAY PARAMTABs FORWPARAM1s» FORWPARAM2(0$MAXPARAMS )3 

FILE XREFFILE DISK SERIAL [£20%3000] (153%30)3 

ALPHA ARRAY XBUFF([022)3 

BOOLEAN XINBS 


INTEGER ARRAY SYMKIND(0#62)3 ZUSED IN ERROR RECOVERY. 


10035000 
10036000 
10037000 
10109000 
10137000 
10138500 
10138550 
10149000 


ERRORIOOMESS C//"100 ILLEGAL SAVE CONSTANT IN trHemncrennn OP TIONIO188500 
e THe ValLUE O7 IS SUBSTITUTED"/" SO THIS ERROR pOES NOT INCREMENT TH10188600 


E COMPILATION ERRORS COUNT."//)5% 
PACKEDSY=61#» ASSERTSY*62#3 


% 
x 
IF ERRNUM=100 
THEN NUMERRS&8SNUMERRS@1 3% * ERROR NUMBER 100 ALONE SHOULD NOT 
% * PREVENT THE XALGOL COMPILATION BEING 
% » ZIPPED As THE VALUE 7 IS SUBSTITUTED 
z * FOR a BAD SaVE CONSTANT IN aN "SS" 
% « OPTION, 
z 
% 
7CINITIAL)»MIDOLEsINITIALS 
"GOOREAD'»s “GREADLN'’»s "SORESET%»s "GUNPACK™s "SOWRITE® 
"6QQUZXKXL™ 00 
IF DECL THEN AX 8% @AX$ 
ABSCAE2]) LEQ ABSC(B[2])3 
% 
% 


10188700 
10211000 
20181500 
20181550 
20181600 
20181650 
20181700 
20181750 
20181800 
20181850 
20181900 
20181950 
20308000 
20373000 
20373500 
20520000 
20539000 
20541100 
20541150 


/R 


% 
BOOLEAN PROCEDURE XREFINPUTCA)$ 
ARRAY ALO]3 


BEGIN 
LABEL EOFS 
INTEGER 13 
% 


READCXREFFILEs 3oXBUFFC*J)CFOF Is 
FOR It=Os192 00 

ACI] t= XBUFFCII3 

IF FALSE THEN EQF! BEGIN 


CLOSECXREFFILEsRELEASE)3 


XIN@ %= TRUE 


ENDS 
XREFINPUT t= XINB$ 


% 
ENO OF XREFINPUT3 
A2 t= =A23 


BOOLEAN LPARFOUNDs SAVEXREF OPTS 
SAVEXREFOPT & = XREF OPTIONS 


XREFOPTION *= SAVEXREFOPT3 
% ASSERT 
END 


THE FOLLOWING 


OF THE "S" OPTION AS FOLLOWS:= 


62 
IF CURNAME1="6ASSERT 


mSe" WILL GIVE NO ZIP IEe 
"S+ WILL GIVE A ZIp FOR COMPILE AND GO 


XREFOPTION 
IF SAVEXREFOPT THEN NEWXREFCCURNAME 1sCURNAME2s THISLEVEL» 
FALSE )3 


ASSERTSY 


" THEN ASSERTSY ELSE 


"S22" WILL GIVE A ZIp FOR COMPILE TO LIBRARY 


WHERE ?? 18 THe TWO DIGIT DECIMAL SAVE 
CONSTANT GIVEN THE OBJECT CODE FILE 
NB, IF THE SAVE CONSTANT IS TO BE 

LESS THAN 40 THE FIRST preGtrtT 


DE Be ae BA de FA da VE BE VE DE SE SE DE BE DE De 


ELSE 
IF CX="S" THEN 
BEGIN 


MUST BE INCLUDED [Ee 


A "Oo", 


IF c="=" THEN SAVEFACTORit=914 ELSE 
IF Cay THEN SAVEFACTOR&= 0 ELSE 
IF C LE@ 9 THeN 
BEGIN 
SAVEFACTOR t= 10 x C3 NEXTCHARS 
SAVEFACTOR t= SAVEFACTOR + C3 
IF C GTR 9 THEN ERROR (10093 
END 
ELSE 
BEGIN 
ERROR(100)3 


INITIAL 


LINES DECODE ANY OCCURRENCE QF THE "S* QPTION AND 
SETS THE GLOBAL INTEGER VARIABLE "SAVEFACTOR® WHICH CONTROLS THE 


TYPE OF COMPILATION INITIATEn BY THE ZIP, THERE ARE THREE LEGAL FORMS 


PASCAL SYNTAX CHECK ONLY 


20541200 
20541250 
20541300 
20541350 
20541400 
20541450 
20541500 
20541550 
20541600 
20541650 
20541700 
20541750 
20541800 
20541850 
20541900 
20541950 
20541960 
20570000 
20842000 
20847500 
20861500 
20861550 
20868500 
30075500 
30165500 
30280000 
30280025 
30280050 
30280075 
30280100 
30280125 
30280150 
30280175 
30280200 
30280225 
30280250 
30280275 
30280300 
30280325 
30280350 
30280375 
30280400 
30280423 
30280450 
30280475 
30280500 
30280525 
30280550 
30260575 
30280600 
30280625 
30280650 
30280675 
30280700 
30280720 
30280735 
30280750 


% 
% 
x 
I 


EFH: 


BEGIN 


END 


SAVEFACTOR t= 73 30280765 

END3 30280780 

END3 30280800 

30280825 

30280850 

30280875 

NTEGER EXPRLEVEL» TXsEXPINVARCNTS & 40018000 
BOOLEAN INBRACKETs»INRECORD,SIMPLEVARS 40087000 
SIMPLEVAR t= FALSE3 40099000 
CURTYPE s= THISIDeTYPES SIMPLEVAR t= TRUES 40104000 
SIMPLEVAR %= FALSE3 40109000 
EXPINVARCNTSSEXPINVARCNT+43% 40120500 
EXPINVARCNTSSEXPINVARCNT"134% 40121500 
SIMPLEVARIABLE %= SIMPLEVAR3 40199500 
IF EXPINVARCNTSO THEN WRYTEEXPRS & 40751000 
LABEL EFH3 50201500 
Z***% 6) OPEN & CLOSE CINPUT) FOR 50204500 

% CUMULATIVE FREQUENCY COUNT50204550 

BEGIN 50208100 
GENCMQQIZXL"9692)3 50208200 
INSYMBOL3 50208300 

GO TO EFH3 % 50208400 

END3 50208500 
50219500 

EXPRLEVEL t= 13 60346500 
IF THISID.IOCLASS=VAR OR 60354000 
THISIDeIOCLASS=CONST AND BOOLEANCTHISIO«FORMAL) THEN % 60354500 
EXPRLEVEL t= Q3 60383500 
PROCEDURE ASSERTSTAT3 60391100 
60391200 

GENC™IF NOTCs751)3 60391400 
INSYMBOLS BOOLEXPR3 60391500 
GENC™) THEN» 75293 GENC"RUNERR(%5794)3 GENC"79%5206)3 60391600 
GENINTCCARDCNT)3 GENC* e197 )3 60391700 
OF ASSERTSTAT3 60391800 
IF CURNAME1="6QQJ/ZxL" THEN FILEHANDLING(6) ELSE 60443500 

IF CURSY=ASSERTSY THEN ASSFRTSTAT ELSE 60457500 
IF PARAM THEN GENCwO"s 157) ELSE BEGIN 80129000 
GENC"OR%s256)3 80129100 

GENINTCRECSIZE*1)3 80129200 

END 80129300 

FORWPARAM{CNUMPARAMS] &%= CURNAME13 80177500 
FORWPARAM2CNUMPARAMS] &® CURNAME23 80177600 

INTEGER INDEX» CTYPE» NUMFORWARDS»s Ts TXe I3 80403000 
ALPHA 133 80403500 
LABEL LLI3 % 80447010 
LABEL LL2s & 80496010 
LABEL LL33 &% 80542010 

IF CURLEVEL GE@ MAXTABLES TREN ERROR(101) ELSE 80543500 
BLOCKTABCCURLEVEL41) t= NUMBLOCKS t= NUMBLOCKS + 13 80543600 

NAME TAB3CCURLEVEL s THISINDEXJeFORWARDDEF t= 03 80553000 

T t= NAMETAB3CCURLEVEL* THISINDEX] e INFOS 80554500 

TX t= JT + PARAMTABLTI3 80554600 

FOR It*T+#1 STEP + UNTIL TX pO 80554700 

NEWNAME CFORWPARAMICI JF ORWPARAM2CIJ sCURLEVEL 413 80554800 

REPLACE POINTERCNAMETABLCCURLEVEL 412%]? BY O 80637500 

FOR MAXNAMES41 WORDS3 80637600 


@®e7e0e 8 8&8 &eehUcCOrhUCc OrhUCOChUCwhTCCUlhOUchOCUchOUchOCUchOCmUlcOCUcrOmUl OCU ChCP 


IF CURLEVEL GEQ LASTREC THEN ERRORC(101)3 & 80643000 
% 90014100 
% 90014200 
SAVEFACTOR:=03% * DEFAULT ZIP IS COMPILE aNp GO UNLESS 90014300 
z * CHANGED BY THE USE OF THE *S" OPTION 90014400 
x 90014500 
z 90014600 
% 900421400 
% THE FOLLOWING LINES ADD A "0" ONTO THE FRONT OF THE PROGRAM NAME OR90042200 
% THE FIRST SIx CHARACTERS THEREOF IF IT IS LONGER THAN SIX CHARACTERS 90042300 
® THUS GIVING THE NaMe OF THE xalGOL OBJECT cODE FILE PRODUCED. 90042400 
% 90042500 
PROGNAME t= CURNgME1.(635%36]3 PROGNAMELENGTH t* MINC6sCURLENGTH) 41390042600 
% 90042700 
% 90042800 
BEGINS 90090400 
WRITECLINE »sNOERRORS) 3% 90090500 
IF ERRC100)% 90090600 
THEN WRITECLINE sERRORLOOMESS) 3% 90090700 
IF SAVEFACTOR20 THENS wa ZIP IS REQUIRED 90090800 
$vOlIoT 90111000 
ENDS 90129500 
#100 ILLEGAL SAVE CONSTANT IN see Semmen OPTION, THE VALUE 07 1894106500 
SUBSTITUTED" /" SQ THIS ERRnR DOES NOT INCREMENT THE COMPILATION ERRO94106600 
RS COUNTe")+% 91106700 
C¥1091 PROCEDURES/FUNCTIONS NESTED TOO DEEP.")» 91106800 
REWINDCXREFFILE)3 92003500 
SORTCPRINTXREF » XREFINPUTSO, XREF MAX» XREF COMPARE » 391000,6000)3 92005000 
$# PaTcH 50® FOR PaScaleXVI.eO CONTAINS 5 caRpSe PRT cELLS 25 TO 30 
$! THIS PATCH CORRECTS THE DOC\MENTATION FOR TRE COMPILERS PRT CELLS 25 TO 27 
$1 (NOT 21 TO 23), FURTHERMORE, IT USES PRT CELL 30 FOR THE CARD COUNT CIN PLACE 
$t OF 27) TO BE CONSISTANT WITH THE OTHER SYSTEM COMPILERSe PRT CELL 27 IS USED 
$: FOR THE PAGE COUNT FORMERLY AT SEQUENCE 40134000. 
$t wILS A OTTEs UNIVERSITY mF NATAL* OURBANe AUG = NOV 1977, 
$i 
INTEGER NUMERRS» % @R+25: NUMBER OF ERRORS IN PROGRAM, 10029000 
SAVEFACTOR> % @R+26% SAVEFACTOR FOR CODE FILE. 10030000 
PAGECNTs» % @R+27t NUMBER OF PAGES PRINTEDe 10033800 
CARDCNT3 % @R+30% NUMBER OF CARDS READ, 10034000 
INTEGER LINECNTs ERRINXS % PAGECNT @ PRT+27 10134000 
$# PATCH 501 FOR PASCAL.XVI.O CONTAINS 3 CARDS, *PRT25" FOR USERS PASCAL PROG. 
$3: THIS PATCH INCORPORATES THE PRE*@OEFINED IDENTIFIER “PRT25" LOCATED 
$t AT PRT CELL 25 AS pER DOCUMENTATION, (THE OOCUMENTATION MUST BE 
$3; AMENDED TO DELETE PRT26 AND PRT27 FROM THE PRE#DEFINED IDENTIFIER LIST) 
$: #* NOTE THaT FILE PaScaL/PRELUDE MUST gE UPDATED FOR "PRT25", 
$3 THE VARIABLE “PRT25" MAY BE SET BY THE @ COMMON = N CONTROL CARD. 
$: NLS A OTTE> UNIVERSITY OF NATAL» DURBAN, AUG = NOV 1977, 
$3 
NEWNAME(*SOPRT25%,0,0)3 Leek MPRTISHY wae 20369100 
T3ISINTTYPES T3eIOCLASS!#2yAR3 * GLOBAL INTEGER VARIABLE 20369200 
NAMETAB3LOsTHISINDEX) 382 T33 20369300 
$# PaTcH 508 FOR PaScalL.XVIe0 CONTAINS 3 CARDSe LINE COUNT WHEN DEBUGGING 
$t QO CORRECT THE LINE COUNT WHEN THE DEBUGGING OPTION TO LIST THE ALGOL 
$3 COpE GENERATED IS SET (*$p+ *«)» OTHERWISE LINES PER PAGE GOES WRONGe 
$! NILS A OTTE, UNIVERSITY oF NATAL» DURBAN. AUG = NOV 1977, 
$3 
DEFINE LINESPERPAGE = 60 #, 10038000 


es © 


: ¥ ‘ carne 


$4 
$3 
$1 
$s 
$3 
$3: 
$3 
$3: 
$f 
$3 
$1 
$3 
$! 
$3 
$3 
$3 
$1: 
$3 


IF DUMPOPTION THEN BEGIN IF CLINECNTS*®LINECNT+1)2LINESPERPAGE 


THEN HEADINGS WRITECLINEs 10, ALGOLCARDE*)) END3 


20149000 
20149100 


PATCH 503 FOR PASCAL eXVI.0 CONTAINS 9 CARDSe INTEGER TO REAL FOR TYPETAB1L 


WHEN MORE THAN 63 ENTRIES WERE ENTERED IN THE “TYPETAB*®" ARRAYS» THE 


PASCAL COMPILER WAS DISCONTINUED DUE TO INTEGER OVERFLOWs WHICH COULD OCCUR 
In A NUMBER OF PROCEDURES As A RESULT OF ASSIGNING TO AN INTEGER AN ARRAY 
ELEMENT WHOSE EXPONENT FIELM WAS NOT ZERO. THE FIELD "ARRTYPE" IS 


(43:10) AND HAS THE 4 HIGH mRDER BITS IN THE EXPONENT FIELD. 
ALTERS THE DECLARATIONS OF aLL IDENTIFIERS TO WHICH “TYPETABi" MAY BE 


ASSIGNED FROM INTEGER TO REAL TO CORRECT THIS ERRORe 
NILS A OTTEs UNIVERSITY oF NATAL» DURBANe AUG = NOV 1977, 


INTEGER IT3 REAL T3 

INTEGER IT; REAL T3 

INTEGER CASETYPEsADDRseMAXADDRe INDEXsCTYPEsTX9SX» T3eLLIMsULIMsI3 
REAL Tis CVAL3 

INTEGER LEVEL1000» TYP» NAMs NAMTABs Ie Js RECSIZES 


ALPHA 


Tis FNAME3 


INTEGER FIRSTPARAMs CURKINDs Pl» PX» I» T33 REAL T3 
INTEGER INDEX» CTYPE» NUMFORWARDS» T3e Txs I 


REAL 


PATCH S04 FOR PASCAL,XVI,0 CONTAINS 23 CARDS, 


Ts» CVAL3 


THIS PATCH 


50225000 
50285000 
70244000 
70246000 
80020000 
80022000 
80148000 
80403000 
80404000 


IMPLEMENT FORWARD DECLARATIONS 


FORWARD DECLARATIONS OF PROCEDURES ENDED In CHAQS DUE To THE PARAMETERS AND 
THEIR TYPES NOT BEING KEPTs RESULTING IN GLOBALS BEING REFERENCED WHERE 


POSSIBLE» AND FORWARD DECLARATIONS OF FUNCTIONS DID NOT WORK AT ALL. 


THE PROBLEM WAS THAT THE INFORMATION ON THE PARAMETERS WAS BEING STORED 

IN THE "NAMETARB*"™ ROWS FOR THE CURRENT LEVEL» WHICH WERE BEING SET TO ZERO 
ON EXIT FROM PROCEDURE BLOCKS AT THAT LEVEL THEREAFTER, 
THIS PATCH CORRECTS THE ERROR BY MARKING THE ENTRIES FOR PARAMETERS OF 
FORWARD PROCEDURES AND FUNCTIONS, SETTING TO ZERO ONLY THOSE ELEMENTS WHICH 
ARE NOT SO MARKED ON EXIT FROM A BLOCK, AND UNMARKING THE RELEVANT PARAMETERS 


WHEN THE PROCEDURE OR FUNCTION IS DEFINED. 


THE MARKING OF THE PARAMETERS 


Ig DONE IN SUCH A WAY THAT yHE SAME IDENTIFIER NAME MAY BE USED AT THE SAME 
LEVEL WITHOUT S¥NTAX ERROR o TO REPORT THAT THE IDENTIFIER IS ALREADY DEFINED 
THE UNMARKING REPLACES THE fDENTIFIER NAME IN *“"NAMETAB*™ TO ALLOW FOR THE 
SAME NAME OR ONE THAT HASHES TO THE SAME PLACE TO HAVE BEEN USED PREVIOUSLY 
AND NOW DELETED. 

NILS A OTTE>s UNIVERSITY oF NATAL» DURBAN, AUG = NOV 1977, 


IF FOUND AND THISIDeIDCLASS2FUNC THEN 
NAMETAB3CCURLEVEL » THISINDEX] -FORWARDDEF 32053 
CTHISIDeIDCLASS=FUNC AND NOT FUN) THEN ERRORC43)3 


TXS=CTISTHISIDSINFOV*PARAMTAB(T]% % UNMARK FORWARD PaRMS 


FOR Ts=T+1 STEP 4 UNTIL TX DO % TO ALLOW REFERENCE 
BEGIN T38=sPARAMTABCI] ePARAMNAMES 
CURNAME1S SABSCNAMETABICCURLEVEL 41,7333 
CURNAME 23s NAME TAB2CCURLEVEL*157T3]3 
NAMETABICCURLEVEL 4127313203 
NEWNAME CCURNAME 1 »CURNAME2 ,sCURLEVEL +1 23 
IF T3ZTHISINDEX THEN BEGIN 
PARAMTABLIJ.PARAMNAMES=THI SINDEX3 
NAMETAB3CCURLEVEL*Is THISINDEX] $s 
NAMETAB3CCURLEVEL 4127333 
END ENDS % OF UNMARKING FORWARD PARAMETERS, 
TXPSCTIANAMETAB3CCUR, EVEL* INDEX], INFO) *PARAMTABCTI 3 
FOR Is=T+#1 STEP 1 UNTIL TX DO % MARK FORWARD PARAMETERS 
NAMETABLECURLEVEL +12 PARAMTABCIJ].,PARAMNAMEJ¢(C4681) tm 13 


80548000 
80553000 
80555100 
80556000 
80557000 
80558000 
80559000 
80560000 
80561000 
80562000 
80563000 
80564000 
80565000 
80565010 
80566000 
80636100 
80636200 
80636210 


TXPZCURFUNCS CURFUNCS=IF FUN THEN INDEX ELSE "43 80645000 

FOR 1830 STEP 1 UNTIL MAXNAMES 00 % LEAVE FORWARD PARAMETERS 80647000 

IF NAMETABLOCCURLFVELsI)>0 THEN NAMETABLICCURLEVEL,11#=03 80648000 
CURLEVELs=CURLEVEL*13 CURFUNCt=Txs 80649000 

FOR It=_ASTREC STEP 1 UNTI, TOPREC#i 00 X% CLEAR RECORD DECS 80693000 


$# PATCH 505 FOR PASCAL eXVI.0 CONTAINS 9 CARODSe CHECK FOR HASH TABLE FULL 
$t WHEN THERE ARE "MAXNAMES* InENTIFIERS aT ONE LEVEL» THE “"NAMETABK” ROWS 
$: BECOME FULL AND THIS USED Tn PUT THE COMPILER INTO AN INFINITE LOOP, 
$: EITHER IN "NEWNAME™ OR "SEARCHTAB". THIS PATCH INSERTS TEST FOR WRAP ,aROQUND 
$t LEADING BACK TO THE HASHED STARTING POINTs FOR WHICH Iy GIVES SYNTAX ERROR 
$! 40s TOO MANY JDENTYFYERS DECLARED, 
$$ NILS A OTTE, UNIVERSITY oF NATAL», DURBANe AUG = NOV 1977, 
$3 
DEFINE HASHCHASH!) = ENXTIERCCHASHI]) MOD MAXNAMES) 4} 20202000 
BEGIN ALPHA TNAMES$ INTEGER WRAPAROUND? 20209000 
WRAP AROUND?P = THISINDEX 8 SHASHCCURNAME] 93 20210000 
IF THISINDEXxswRAPAROUND THEN TNAMESs03 & TABLE IS FULL 20216100 
ALPHA TNAMES INTEGER WRAPAROUNDA 20237100 
WRAPAROUND? sTHISINDE XS sHASHCNAMEL )3 20238000 


$# 
$3 
$! 
$3 
$3 
$t 


$# 
$3 
$? 
$4 
$1 


IF THISINDEX=WwRAPAROUND THEN % TABLE AT THIS LEVEL IS FULL 20244100 

BEGIN ERRORC40)3 NAMELS=TNAMES NAME2?=NAMETABCCTABs THISINDEX 20244200 

END} 20244300 
PATCH 506 For PASCALeXVI.0 CONTAINS 2 CARDSe RESERVED WORD ENDING AT CC 80 
IF A RESERVED WORD ENDEO AT CARD COLUMN 79 OR 80 AND IF THE "BOLOFACE™ FOR 
RESERVED WORDS OPTION IS Ser C¥SR+ *)2 AN INVALID INDEX OCCURRED IN THE 
SCANNER "INSYMBOL",. THE PROBLEM Is CURED BY CORRECTLY COMPUTING THE STARTING 
AND ENOING POINT OF THE RESFRVED WORDS, 


NILS A OTTE, UNIVERSITY oF NATAL, DURBANe AUG » NOV 1977, 
BEGIN Ti %= CARDLENGTH@CHARCNT@CURLENGTH"13 30178000 
FOR CURLENGTH*+REALCCHARCNT#Q)3 30181000 


PaTCH 507 FOR PASCALeXVIe0 CONTAINS 5 CARDSe "“VARIABLE"»s "SIMPLEVARI ABLE" 
IN PROCEDURE "VARIABLE™s "“SrMPLEVARIABLE™ IS SET TRUE IF A SUBSCRIPT Is 
SIMPLE» RESULTING IN ALGOL cODE BEING WRITTEN PREMATURELY DURING RECURSIVE 
CALLS ON PROCEOQURE “EyXPRESSTON", WHICH IN SOME CASES LEAD TO ALGOL SYNTAX 
ERRORS, SINCE WRITING THE ALGOL CODE Is DEPENDANT ON "EXPRLEVEL” BEING ZERO, 
THIS PATCH BUMPS ITS VALUE pRIOR TO ANALYSING THE SUBSCRIPT» AND SETS 

"SIMPLE VARIABLE" FALSE AFTERWARD Se 


NILS A QTTE>s UNIVERSITY mF NATAL» DURBAN, AUG = NQV 1977, 
EXPRLEVEL t= EXPRLeVel+1; % pO NOT “WRITEEXPR" YET 40120900 
EXPRLEVEL %= ExPRLFVEL@14 40121100 
SYMPLEVARYABLE t= pALSE} % RECURSION ON “VARYABLE" 40121200 
EXPRLEVEL Ss EXPRLEVEL*13 60063900 
EXPRLEVEL s= EXPRLEVEL™@43 60065100 


PATCH 509 FoR PASCAL «XVI.0 CONTAINS 1 CARD. “CONCAT” A FUNCTION OF ANY TYPE 
THE INTRINSIC FUNCTION "CONCAT" COULD ONLY BE ASSIGNED TO A VARIABLE DECLARED 
“Real” TO aVOID TYPE CONFLI¢T SYNTAX ERRORS. THIS PaTCH MAKES “CONCaT" 
TYPELESS, 

NILS A OTTE» UNIVERSITY oF NATAL» DURBAN, AUG = NOV 1977, 


CURTYPE s= 03 & ALFATYPE oR REALTYPE 50050000 
PATCH 511 FOR PASCALeXV1I.0 CONTAINS 7 CAROSe ALLOW UP@=LEVEL ADDRESSING 
TO ALLOW UP*LEVEL IDENTIFIER REFERENCES. FORMERLY» REFERENCES TO GLOBAL 
IDENTIFIERS WHICH WERE Nov N THE OUTER BLOCK WERE FLAGGED BY SYNTAX ERROR 
5, UP*LEVEL ADDRESSING NOT IMPLEMENTED DUE TO HARDWARE RESTRICTION® 
ALTHOUGH THE RESTRICTION EX7STS IN EXTENDED ALGOL» IT IS NOT TRUE THAT THE 


®esee5eoeoeeeeeeeeeeteeeeee & @ 


$* RESTRICTION IS DUE TO HARDWARE», FOR UP#LEVEL ADORESSING IS ALLOWED IN 


$: COMPATIBLE ALGOL WITH THE CauTION THAT It IS INEFFICIENT CTHE IMPLEMENTATION 


$3 


IS SIMILAR TO AN ARRAY ELEMENT REFERENCE De 
$: THIS PATCH PERMITS SUCH GLOBAL REFERENCES» EXCEPT 


$$ (1) THAT IF THE CONTROL VARIABLE OF A FOR STATEMENT IS NOT LOCAL OR IN THE 


$3 
$3 


$3 


$1: 
$! 
$3 
$3 
$3 
$: 
$8 
$3 
$t 
$3 
$3 
$! 


(" 95 
$# PATCH 513 FOR PASCAL.XVI.O CONTAINS 16 CARDS. 


NILS A OTTE, 


ALGOL ARRAY, 


PASCAL/PRELUDE! 


NILS A OTTE>s 


BEGIN 


NUMSYMS 


IF ERRNUM<O THEN ERRNUM?=ARSCERRNUM) ELSE 
SIF THISLEVEL>1 AND THISLEVEL<CURLEVEL THEN ERRORS3 
AIF THISLEVEL>1 AND THISLEVEL4CURLEVEL THEN EFRRORS; 
SIF THKISLEVEL>1 AND THISLEVELZCURLEVEL THEN ERRORS$ 
IF THISLEVELZCURLEVEL™y OR THISINDEX#CURFUNG THEN ERROR(5)3 
IF THISLEVEL>1 AND THISLEVEL<CURLEVEL THEN ERROR(=5)3 
5 FUNCTION NAME NOT ACCESSIBLE AT THIS LEVEL,")> 
$# PATCH 512 FOR PASCAL»sXVI.O CONTAINS 24 CARDSe 
TO ALLOW STRUCTURED ASSIGNMENT. 
WAS NOT IMPLEMENTED» EG 
THIS PATCH ATTEMPTS TO IMPLEMENT ASSIGNMENT OF STRUCTURES OF ANY KIND,» 
BUT IT WOULD FAIL IF THE STRUCTURE WERE TRANSLATED INTO A MULTI@=DIMENSIONAL 
THIS IMPLEMENTATION DOES WORK FOR ARRAYS» RECORDS» 
SUBSTRUCTURES» AND FOR STRUCTURES ALLOCATED IN THE HEAP, 
THIS PATCH NEEDS PATCH 50% tN ORDER To SUCCEED, 
FOR THIS IMPLEMENTATIONs THE FOLLOWING DEFINE Is REQUIRED IN THE FILE 
DEFINE ASSYGNCDEST» SQURCEs 
BY POINTERCSOURCE) FOR LENGTH WORDS #3 
UNIVERSITY OF NATAL» DURBAN, 


PROCEDURE wRITESEyPR3 


IF INSIDEBRACKETS THEN 
THEN SYMTABENUMSYNS) 
WHILE NUMPOINTERS>O 00 
NUMPOINTERS 
IF NUMSYMS4#4 2 MAXSYMS THEN 
REPLACE POINTERCSYMTABCNUMSYMS41)) BY 

"OO"™1IDIVOO 1022,00 T MOD00 1022)"3 
t= NUMSYMS+43 


ENDS’ % OF WHILE 


WRITEEXPR; 


GENC wet, 


WRITESEXPR} 


ZERROR(95)3 
GENCTASSIGN("s721)3 


EXPRESSIONS 


END3 
CHEGKTYPESC LEFTTYPEs 
SIZE OF STRUCTURES IN ASSIGNMENT ARE NOT THE SAME,")» 
FIX POINTERS VIA POINTERS 


AUG = NOV 1977, 


AUG = NOV 1977, 


%ee* FIX STRUCTURE FOR ASSIGNMENT 

USED ONLY IN ASSIGNMENT OF STRUCTURES 
IF SYMTABCNUMSYMS } 
r= %» O ] * ELSE PUTSYMC™I]"™)3 
t= NUMPOINTERS#@13 
WRITEEXPR; 


% STRUCTURED ASSIGNMENT NOT IMPLEMENTED. 

WRITESEXPR} 

WRITESEXPR3 

GENINTCTYPETABICLEFTTYPE) ,SIZE)3 

IF TYPETABLCLEFTTYPE y.SIZEZTYPETABILCURTYPE },SIZE 
THEN ERROR(95)3 


GEN C™)%5457)3 


CURTYPE )3 


OUTER BLOCK CPRT) A WARNING IS ISSUED CIN THE FORM OF A SYNTAX ERROR» 
BUT THE ERROR COUNT IS NOT INCREMENTED)» 
$1 (2) THE RESTRICTION Is sTILL APPLIED TO FUNCTION NAMES» 
SYNTAX ERROR 13S AMENDED ACCORDINGLY, 

UNIVERSITY oF NATAL» DURBAN. 


THE MESSAGE FOR 


20180900 
40103000 
50244000 
50306000 
60091000 
60276000 
91009000 


IMPLEMENT STRUCTURED ASSIGNMENT 
FORMERLY» AN ASSIGNMENT OF A STRUCTURE 


LENGTH) = REPLACE POINTERCDEST) 


60020000 
60021000 
60022000 
60023000 
60024000 
60025000 
60026000 
60027000 
60028000 
60029000 
60030000 
60031000 
60032000 
60033000 
60034000 
60063000 
60064000 
60065000 
60066000 
60067000 
60068000 
60087000 
60088000 
91102000 


$! TO CORRECT THE CODE GENERATFD FOR CHAINED REFERENCES THROUGH THE HEAP» 


$3 If FOR POINTERS TO POINTERS. THE OFFSET FOR COMPONENTS WITHIN RECORDS 
$1 WAS INCORRECTLY BEING ADDED TO THE RECORD IN THE LEFTMOST REFERENCEs IE THE 
$! INNERMOST» INSTEAD OF AT THe EXPECTED LEVEL. 
$1: FOR EXAMPLE» THE FOLLOWING ywO REFERENCES WOULD BOTH BE TRANSLATED TO 
$t THe SAME aALGOL CODE EQUIVALENT TO HEAPCHEAPCID+IPART+IcOMPIJ]3 
$2 ID@.PART@.COMP, ID@,PART.COMPS, 
$: WHEN THE FYRST SHOULD HAVE REEN3 HEAPCHEAPCIO+;PARTJ+]COMP), 
$t In ADDITION» THIS PATCH IMPROVES THE COMPILERS CODE FOR GENERATING THE 
$: "MEM" ARRAY SUBSCRIPT. 
$t wIlS A QTTEs UNIVERSITY of NATAL» DURBAN. 1977711714 
$3 
IF NUMSYMS+6 < MAXSYMS THEN 40175000 
NUMSYMS %= NUMSYMS¥23 40180400 
Ip NUMPOINTERS > 0 * POINTER VIA POINTER 40180500 
THEN BEGIN REPLACE POINTERCSYMTABLCNUMSyMS4+1]) By 40180600 
"00", )01VOO 14022200 T MODOO 1022)"3 40180700 
NUMSYMS t# NUMSYMS443 40180800 
END 40180900 
ELSE NUMPOINTERS %= 13 40181000 
% INBRACKET t= FALSE 40191100 
BEGIN NUMPOINTERS t= NUMPOINTERS@43 40193000 
IF NUMSYMS+4 $ MAXSYMS 40194000 
THEN BEGIN REPLACE POINTERCSYMTABLNUMSYMS41]) BY 40194100 
"OO"1L)DIVOO 1022-00 T mando 1022)"3 40194200 
NUMSYMS 82 NUMSYMS+43 401943008 
END 40194400 
ELSE ERROR(63)5 % EXPRESSION IS TOO LONG FOR SYMTAB[*] 40195000 
$# PaTCH 514 FOR PaSCalLeXV1.0 CONTAINS 2 CARDS» PROCESS TIME FUNCTION FOR RUN 
$! PATCH TO CHANGE THE NAME OF THE FUNCTION ON THE 85700 VERSION WHICH SUPPLIES 
$! THe PROCESS TIME USEp BY THe PASCAL PROGRAM ON THE CURRENT RUN FROM “ELAPSED” 
$3 WHICH MEANS PLATFORM TIME, TO "CPUTIME® WHICH IS THE WIDELy ACCEPTED TERM 
$: FOR THIS QUANTITY. 
$! wILS A OTTE» UNIVERSITY oF NATAL» DURBANs AUG = NOV 1977.6 
$t 
NEWNAMEC”7CPUTIM"s"E%50)3 NAMETAB3SLCOsTHISINDEX] 8273; 20390000 
IF CURNAME1="7CPUTITM"™ AND CURNAME2="E" THEN % "CPUTIME" 40452000 
$# PaTcH $16 FOR PaScalLeXVI.050. CONTAINS 2 caRpSe CORRECT "NO LISTING" ERROR 
$! THIS PATCH CORRECTS AN ERROR WHEREBY IF LISTING wAS TURNED OFF 
$$ AND PAGE THROW WAS INVOKEDs A HEADING WAS PRINTED REGAROLESS, 
$2 DAVID A COOPER» HERIQOT@WATT UNIVERSITY even e JUNE® 19786 
$3 
IF CX="L" THEN Ip C#i THEN 30264000 
IF LISTOPTION THEN HEADING ELSE 30264500 
$# PaTCH 517 FOR PASCAL eXVI.O4 CONTAINS 2 CARD, 
$% THIS PATCH CORRECTS AN ERROR THAT CAUSED A FILE DECLARATION 
$! TO HAVE ITS NAMe STRING SPLrT OVER TWO LINES IN THE GENERATED XALGOL. 
$1 ALSO CHANGES SymMTAB FORM TYPE REAL TO TYPE ALPHA, 
$3: DAVID A COOPERs HERIOT#WATT UNIVERSITY eveeeJUNE® 19788 
$3 
ALPHA ARRAY SYMTABLOSMAXSYMS]3 % USED BY "EXPRESSION", 10144000 
IF ALGOLCNT LSS 14 THEN WRITEALGOL3 80103000 
$# PATCH 518 FOR PASCAL «XVI eQe CONTAINS 224 CARDS, 
$: THIS PATCH CHANGES THE WAY THAT MULTI@DIMENSION aRRayS 
$2 REPRESENTING RECORDS ARE DECLAREDe PREVIOSLY THEY WRE DECLARED 
$t THe WRONG WAY ROUND FOR XALGOLe. THIS PATCH SORTS THE DIMENSIONS 
$t INTO ASCENDING ORDER FROM LEFT TO RIGHT AND GENERATES APPROPRIATE 
$1 DEFINES AND CODE FOR HANDLING THE ARRAYS. 


By an ee eee ce ish ekee #g 


$! STUART ANDERSON» COMPUTER SeIENCE® HERIOT*WATT UNIVERSITY» 


$3 


DEFINE 
PERMSUB = 0 #5 MAXTOTALSUBSCRS = 100#>» 
ARRNAM = 1 #3 
ARRAY ARRSUBPERMTABLO!S1 ent MAXTOTALSUBSCRS 4 
INTEGER PASSPERMTABs MAyPERMTABs REMEMBERPOSN3 


BOOLEAN SIMPLEVARIABLE»,INSIDEBRACKETSs INSIDEPARENSS 


IF INSIDEPARENS AND TYPETABICCURTYPE).+STRUCT >» O AND 
T¥PETABLCCURTYPE],FORM < FILES THEN 
PUTIDC "Hs 1O00xTHISLEVEL+THISINDEXs5) 
ELSE 
PUTIDO"V™»s LOCOxTHISLEVEL+THISINDEX 25 33 
INSIDEPARENS t= TRUES 
INSIDEPARENS %= FALSE3 


GENIDC Rs LO0OxXTHISLEVEL+THISINDEX#5)5 
GENIDC "Hs LOGOxXTHISLEVEL*+THISINDEX#5)3 


VAIOT 

VOIDT 

DEFINE 
LOWSUBS = © #» 
HISUBS = 1 #» 


NEXTSUBS= 2 #» 
MAXNOOFSUBSCRIPTS = 20 #» 
STOPPERSUBTAB = 21 #3 
ARRAY ARRSUBSCRYIPTRANGE[Q22208MAXNOOF SUBSCRIPTSI3 


INTEGER FIRSTRANGE® NEXTFREEENTRY* PASSSUBRANGEs PREVPASS» 


MPs» POSNOs SUBDIFF3 
IF ARRAYVAR THEN GENC*3%5127) ELSE ARRAYVAR 88 TRUES 
IF NOT PARAM THEN 
BEGIN 
GENC "DEFINE »752)3 
GENTDC"™V">LEVEL1O00+#NAMs5)5 
GENC™£ 515793 


END} 
FIRSTRANGE t= SToOpPPERSUBTABs NEXTFREEENTRY *= 03 
POSNO t= 13 
MP t3 103 FIRSTOIM = TRUFS 
po 
BEGIN 
IF FIRSTOIM THEN FIRSTDIM $= FALSE ELSE 
BEGIN 
IF NOT PARAM THEN GENC%%197)3 
ENDS 


IF NOT PARAM THEN GENQIOC™V™sCLEVELLO00+ NAM) xMp+pOSnoslF Mp2i0 


THEN 6 ELSE 7)3 POSNn t= POSNO + 13 
IF PQSNO = MP THEN MP t= MPX103 
IF WNEXTFREEENTRY = STOPPERSUBTAB THEN 
BEGIN 
ERRORCO)3 
END 
ELSE 
BEGIN 


JUNE cee eel 978s 


10156200 
10156300 
10156400 
10156500 
10156600 
40080000 
40080100 
40105000 
40105100 
40105200 
40105300 
40105400 
40105500 
40258100 
40259100 
50243000 
50243100 
50307000 
50307100 
80052000 
80064000 
80064005 
80064010 
80064015 
80064020 
80064025 
80064030 
80064035 
80064040 
80064045 
80064050 
80064055 
80064060 
80064065 
80064070 
80064075 
80064080 
80064085 
80064090 
80064095 
80064100 
80064105 
80064110 
80064111 
80064112 
80064113 
80064115 
80064120 
80064125 
80064430 
80064135 
80064140 
80064145 
80064150 
80064155 


ARRSUBSCRIPTRANGFLLOWSUBS»NEXTFREEENTRYJ&2TYPETAB2CTYP]3 80064160 
ARRSUBSCRIPTRANGEPHISUBS»sNEXTFREEENTRY] t& TYPETAB3CLTYPJ]3 80064165 
END3 80064170 
SUBDIFF t= TYPETAB3CTYP] = TYPETAB2CTYP]3 80064175 

IF FIRSTRANGE = STOPPFRSUBTAB THEN 80064180 
BEGIN 80064185 
FIRSTRANGE t= NEXTFREEENTRYS 80064190 
NEXTFREEENTRY %= NEXTFREEENTRY + 13 80064195 
ARRSUBSCRIPTRANGELNEXTSUBSsFIRSTRANGE] := STOPPERSUBTAB3 80064200 

ENO 80064205 

ELSE 80064210 

BEGIN 80064215 
PASSSUBRANGE t= FYRSTRANGES 80064220 
PREVPASS t= STOPPERSUBTABS NEXTFREEENTRY # =NEXTFREEENTRY+13 80064225 
WHILECSUBDIFF 2 ARRSUBSCRIPTRANGECHISUBS» PASSSUBRANGE] 80064230 
“ARRSUBSCRIPTRANGECLOWSUBS»PASSSUBRANGE}) AND 99064235 
CARRSUBSCRIPTRANGECNEXTSUBSsPASSSUBRANGE) # 80064240 
STOPPERSUBTAB) DO 80064245 

BEGIN 80064250 
PREVPASS sm PASSSUBRANGE}3 80064255 
PASSSUBRANGE 3:23 ARRSUBSCRIPTRANGECNEXTSUBS» 8006426 

PASSSUBRANGE)} 80064265 

ENDS 80064270 

IF PREVPASS = STMPPERSUBTAB THEN 80064275 
BEGIN 80064280 

IF SUBDIFF 2 a~RRSUBSCRIPTRANGELCHISUBS» 80064285 
PASSSUBRANGE) = 80064290 

ARRSUBSCRYIPTRANGELLOWSUBSs 80064295 

PASSSUBRANGE] THEN 80064300 

BEGIN 80064305 
ARRSUBSCRIPTRANGECNEXTSUBS» PASSSUBRANGE) ?¢2 80064310 
NEXTFREEENTRY = 13 80064315 
ARRSUBSCRIPTRANGECNEXTSUBS*»NEXTFREEENTRY*@1] 85 80064320 

STOPPERSUBTAB3 80064325 

END 80064330 

ELSE 80064335 

BEGIN 80064340 
ARRSUBSCRIPTRANGECNEXTSUBS* NEXTFREEENTRY&1] 2&2 80064345 

FIRSTRANGE3 80064350 

FIRSTRANGE t= NEXTFREEENTRY"13 80064355 

END 80064360 

END 80064365 
ELSE 80064370 
BEGIN 80064375 

IF SUBDIFF 2 ARRSUBSCRIPTRANGECHISUBSsPASSSUBRANGE) = 80064380 
ARRSUBSCRIPTRANGELLOWSUBSsPASSSUBRANGE) 80064385 

THEN 80064390 

BEGIN 80064395 
ARRSUBSCRIPTRANGELNEXTSUBS*PASSSUBRANGE] &2 80064400 
NEXTFREEENTRY @ 13 80064405 
ARRSUBSCRIPTRANGELNEXTSUBS*NEXTFREEFENTRY@1) 82 80064410 

STOPPERSUBTABS 80064415 

END 80064420 

ELSE 80064425 

BEGIN 80064430 
ARRSUBSCRIPTRANGELNEXTSUBS*PREVPASS) 32 80064435 
NEXTFREEENTRY "13 80064440 


@®eeeeeeeeee6#ee8e8ee8e8008080800 6 ®@ 


ARRSUBSCRIPTRANGECNEXTSUBSsNEXTFREEENTRY"1] 82 


END 


PASSSUBRANGES 


END 
ENDS TYP3=IF Ti.FORM = ARRAYS THEN Ti,ARRTYPE ELSE REALTYPES 
T1 $= TYPETABICTYPI3 


FIRSTOIM 
GENIDC#V"s (LEVELIQOO0+NAMIXCIF PASSSUBRANGE>9 THEN 100 ELSE 
10)+PASSSUBRANGE*+1, IF PASSSUBRANGE>9 THEN 7 ELSE 6)3 
tx ARRSUBSCRIPTRANGECNEXTSUBSsPASSSUBRANGE J3 


t= TRUE} 


$= FALSE ELSE GENC™’s "515793 


GENIOC™H”™sLEVELLOOO+NAMs5 3 


LEQ MAXTOTALSUBSCRS AND PARAM THEN 


ts 


THEN NAM ELSE “15 


t= PASSSUBRANGES 


IF MAXPERMTAB > MAXTOTALSUBSCRS THEN ERROR(0O)3 


t= FALSE 


ELSE 


GENC™s "515793 


GENINTCARRSUBSCRIPTRANGECLOWSUBS»sP ASSSUBR ANGE) )3 


GENINTCARRSUBSCRIPTRANGECHISUBS»PASSSUBRANGE] )3 


PASSSUBRANGE tt ARRSUBSCRIPTRANGECNEXTSUBSsPASSSUBRANGE J3 


END UNTIL TieSTRUCT = O 3 
IF NOT PARAM THEN 
BEGIN 
GENC™*J2%,256)3 
GENIOC YH Ys LEVEL LO004+NAMe5 23 
GENC"L%5457)3 
PASSSUBRANGE!t= FIRSTRANGES FIRSTDIM 
WHILE PASSSUBRANGE # STOPPERSUBTAB DO 
BEGIN 
IF FIRSTOIM THEN 
PASSSUBRANGE 
ENDS 
GENC"1#3%,325)3 
ENDS 
PASSSUBRANGE 3:2 FIRSTRANGE3 
FIRSTOIM $= TRUES GENC™ARRAY%2623)3 
GENC"L 515793 
WHrLE PASSSUBRANGE # STOPPERSUBTAB DO 
BEGIN 
IF MAXPERMTAB 
BEGIN 
ARRSUBPERMTABLARRNAMsMAXPERMTAB J 
IF FIRSTDYM 
ARRSUBPERMTABLPERMSUB 2» MAXPERMTAB) 
MAXPERMTAB t= MAXPERMTAB + 13 
END 
ELSE 
BEGIN 
ENB; 
IF FIRSTOIM THEN FIRSTDIM 
IF NOT PARAM THEN 
BEGIN 
GENC™E%5197)3 
END; 
END? 
GENC™3%519793 
$ 
TF CURLEVEL > 14 THEN 
BEGIN 
INTEGER NAMOFTHING?*OLFF3 
BOOLEAN FIRSTTIME; 
GENC"BEGIN"'s 65393 
IF MAXPERMTAB > O THEN 
BEGIN 
PASSPERMTAB t= 03 


80064445 
80064450 
80064455 
80064460 
80064465 
80064470 
80064475 
80064480 
80064485 
80064496 
80064495 
80064500 
80064505 
80064510 
80064515 
80064520 
8006453 

809064535 
800645486 
80064545 
800645598 
80064555 
80064560 
80064565 
80064570 
80064575 
80064580 
80064585 
80064590 
80064595 
80064600 
80064605 
80064610 
80064615 
80064620 
80064625 
80064630 
80064640 
80064645 
80064650 
80064655 
80064660 
80064665 
80064670 
80064675 
80064680 
80064685 
80064950 
80421000 
80421010 
80421020 
80421030 
80421040 
80421050 
80421060 
80421070 
80421080 


® 0 


oa 80421090 
BEGIN 80421100 
REMEMBERPOSN := PASSPERMTAB3 80421110 
GENC"DEFINE™%s 792)3 80421120 
NAMOFTHING ts ARRSUBPERMTABCARRNAMsPASSPERMTAB) 3 80421130 
GENIDC™V"s LO0OXCURLEVEL +NAMOFTHINGs5)3 80421140 
GENC™C 5157 )3 80421150 
FIRSTTIME 8% TRUES 80421160 

ale) 80421170 

BEGIN 80421180 

IF FIRSTTIME THEN FIRSTTIME 83* FALSE ELSE GENC "2180421190 
279380421200 

DIFF t= P,aSSPERMTaB™REMEMBERPOSN41; 80421210 
GENIOC#¥,(C1000xCYRLEVEL+NAMOF THING) xCIF OIFF>9 THEN 100 ELSE 80421220 
10)+DI¢feCre DIFF > 9 THEN 7 ELSE 6))3 80421230 
PASSPERMTAB t= PASSPERMTAB + 13 END 80421270 

UNTIL PASSPERMTAB = MAXPERMTAB OR 80421280 
ARRSUBPERMTABCARRNAMsPASSPERMTAB) # 13 80421290 

GENC™) "51573 80421300 
GENCE" 9457 )3 80421310 

GENIDC "HY, 1000x%CURLEVEL*NAMOF THING s5)3 80421320 
GENC™E"s197)3 80421340 
PASSPERMTAB t= REMEMBERPOSN$S FIRSTTIME t= TRUE3 80421350 

dO 80421368 

BEGIN 80421370 

IF FIRSTTIME THEN FIRSTTIME t= FALSE ELSE GENC™»"s 90421380 
1979380421390 

DIFF s= ARRSUBPERMTAB[(PERMSUBsPASSPERMTABIJ +413 , 80421400 
GENIDC*V%s¢1O00XCURLEVEL*NAMOFTHING)XCIF DIFF>9 THEN80421410 

100 FLSE 10)4DIFF,CIF DIFF>9 THEN 7 ELSE 6))3 80421420 

PASSPERMTABR t= PASSPERMTAB +13 80421430 

ENO 80421440 

UNTIL PASSPERMTAB = MAXPERMTAB~ OR 80421450 
ARRSUBPERMTABLARRNAMsPASSPERMTAB)] # 13 80421460 
GENC"1#3%53,5)3 80421476 

END 80421480 
UNTIL PASSPERMTAR = MAXPERMTABS 80421490 
MAXPERMTABR $= O03 80421500 

END 80421510 
END3 80421520 
$ 80608000 
BEGIN 80608010 
BEGIN 80608020 
INTEGER NAMsTisSCRATCHS 80608030 

NAM t= PaRAMTaBl13,(9210); 80608040 
SCRATCH t= NAMETARB3CCURLEVEL41 sNAMI]3 806068050 
SCRATCH $= SCRATCH, TYPES 80608060 

T1 ts TYPETABILSCRATCHI3 80608070 

IF TieSTRUCT # O AND TieFORM «¢ FILES THEN 80606080 
GENIOC™H's 1000x(CURLEVEL 41 +NAM25) 80608090 

ELSE 80608100 
GENIOC™Vs 1000, (CURLEVEL +4 )+NAMs5)3 80608110 

END; 80608120 
MAXPERMTAB %= Of 90070100 
INSIDEPARENS t= FALSE; 90070200 


$# PATCH 519 FOR PASCAL XVI,0, CONTAINS 4 CARDS, INCREASE RUNTIME STACK, 


$1 


" XALGOL STACK = 20483 
$# PATCH 600 FOR PASCAL .«XVI.0. CONTAINS 22 CARDS, DAGS DEC77 PATCHES. 
$! PATCHES RECEIVED FROM DeLANGMYHR AND TRANSPOSED FROM COSY FORMAT BY 


STACK = 10245 ENDe"3 & 


$! DAVID A COOPER. FEBRUARY 1978, 


$t 


IFCF1 NE@ SET OR RT NEQ EMPTYSET) &% 


$ 
$ 


AND % 


(F2 NEQ SET OR LT NEQ@ EMPTYSET) THEN & 
IFCF1 NEQ@ POINTERS OR eT NEQ NILTYPE) &% 


AND % 


CF2 NEG POINTERS OR LT NEG NILTYPE) THEN & 
BEGIN ERROR(63)3 &% 


GENC"*PREADC 269293 WRITEEXPRS GENC ao 197)3 


GENIDC"F",FILEID,5)3 GENC™»%s157)3 & 
IF FENUMERIC THEN % 


BEGIN % 


GENC™s"5197)3 GENINTCTYPETAB2ZECURTYPE) 
GENC™,%,1,7)3 GENINTCTYPETAB3(CURTYPE] 


END ELSE GENC™s0,0"s494)5 & 


SET VOIOT 
POP vOIDT 


IF NAMTABeIDCLASS=FUNC THEN GeNCTFUNCTN"'» 752) % 
ELSE GENC™PROCEDU"» 85193 & 
IF FOUND AND CTHISID.IOCLASS=PROC OR THISIDsIDCLASSSFUNC) THEN 


S#PATCH 601 FOR PASCALexVleOQeCQONTAINS 147 CAROSe EXTENDE SET MODS, 

$s PATCHES RECE;VED FROM D.LANGMYHR AND TRANSPOSED FROM COSY FORMAT BY 
$! DAVID A COOPER. 
$$ THIS PATCH MODIFIES THE SET HANDLING ROUTINES TO ALLOW SETS OF 05293 


$8 ELEME 


NTSa 


FEBRUARY 1978. 


) 
) 


$1 NB, THE RUN TIME SYSTEM MUST BE CHANGED ACCORDINGLYecees 


$3 aan 888 a2 Fen seme Oe Ae Fe POR Re He sR BE Meee ee 


PROCEDURE SPLITCSPLITINXsWIDTH)3 & 
VALUE SPLITINX» WIDTH3 % 
INTEGER SPLITINX*» WIDTH 3 % 


BEGIN & 


INTEGER I3 & 


% 


TF NUMSYMS+WIDTH LEQ MAXSYmS THEN &% 


BEGI 


END 
ELSE 
BEGI 


END3 
ENO oF S 
% 


N % 


FOR ;!=NUMSYMS STEP 1 UNTIL SPLITINX DO % 
SYMTABCI*WIDTH} %= SYMTABLI]3 % 

FOR Itsy STEP 4 UNTIL wIOTH DO % 
SYMTABLSPLITINX+1°1) 


NUMSYMS 
% 


N % 


ERROR(63)3 & 
NUMSYMS t= 43 % 


x 
PLITS % 


$2 "3000000"; % 


t= NUMSYMS + WIDTHS % 


3% 
3% 


% 


90120500 


20813000 
20813050 
20813100 
20814000 
20814050 
20814100 
40023000 
50059000 
50079000 
50080000 
50081000 
50062000 
50086010 
50086050 
50086106 
50086150 
50086200 
50088000 
50093000 
80037000 
80038000 
80548000 


40052050 
40052055 
40052100 
40052150 
40052200 
40052250 
40052300 
40052350 
40052400 
40052450 
40052508 
40052550 
40052600 
40052650 
40052700 
40052750 
40052800 
40052830 
40052860 
40052898 
40052900 
40052950 
40052960 


x 


ENDS % 
IF TYPETABICCURTYPEJeFORM=SET THEN & zee SET VARIABLES 


BEGIN % 


kkk Fe awe eet wes 


INTEGER THISSYMLs» I3 % 


% 


SPLITCSTARTSYMo1 )3 SYMTARCSTARTSYM] s= "SLOADC("; & 
IF SIMPLEVAR THEN % 
BEGIN &% 


PUTSYM(C%e")3 & 
PUTIOC™W"s LOOOXTHISLEVEL+THISINDEX25)3 % 


END % 
ELSE % 
IF INBRACKET AND NOT INRECnyRD THEN & 
BEGIN & 
PUTSYMc¢ es"); THISSYML 8 NUMSYMS$; X 
PyTCONsT(0)3 PUTSYMC™ ")3 PUTSYMC%s")3 & 
FOR ys=STARTSYMs1, STEP 14 UNTIL THISSYML DO & 
PUTTEXTCSYMTABLII)3 
PUTTEXTC™ 43 ")3 % 
END % 
ELSE % 
BEGIN @ 
THISSYML & * NUMSYMS3; 2% 
IF INBRACKET THEN PUTSYMC™I")3 & 
FOR It=1 STEP 1 UNTIL NUMPOINTERS DO & 
BEGIN % 
PUTTEXTC m1 DIV )3S PUTTEXTC® 10229")3 & 
PUTTEXTC™ T MOD")3 PUTTEXTC™ 10220]")3 & 
ENDs % 
PUTSYMC¥a")5 & 
FOR Tt=STARTSYM41 STEP 1 UNTIL THISSYML DO % 
PUTTEXTCSYMTABLIJ)3 & 
PUTTEXTC™ +14 ")3 & 
IF INBRACKET THEN PUTSYM("™]")3 % 
FOR Il3=4 STEP 4 UNTIL NUMPOINTERS DO & 
BEGIN % 
PUTTEXTC"@1)01V")3 PUTTEXTC™ 10229")3 % 
PUTTEXTC™ T MOD" 93 PUTTEXTC™ 1022]")3 % 
ENDS % 
NUMPOINTERS t= OF % 
END3 


PUTSYM("»")3 PUTCONST(CARDCNT)3 = PUTSYM(™)™)5 & 
END oF SET VARIABLES3 % 


IF TYPETABICTHISYIDe TYPE] «¢FORM#SET THEN 
BEGIN &% 
GENC™s"sto7)3 & 
GENTIOC™w's1000xTHISLEVEL+THISINDEXs5)3 & 
ENDS & 


BOOLEAN FIRST, SPLITTEDs & 


PUTTEXTC"SETBSC™)3 PUTTEXTC™ 3520" )3 PUTCONSTCCARDCNT)S 2% 


PUTSYMC™)™)3 & 
CURTYPE t= EMPTYSET3 CURMODE t= NUMBERS % 
STARTSYM t= NUMSYMS + 13 % 
PUTTEXTC™ SETBC")3 % 
PUTSYMC%s%)3 SYMTABCSTARTSYM] t= "SETBS("3 % 


40052965 
40188005 
40188010 
40188025 
40188050 
40188075 
40188100 
40188125 
40188150 
40188175 
40186200 
40188225 
40188258 
40188275 
49188300 
40188325 
40188350 
40188375 
40188400 
40188425 
40188450 
40188475 
40188500 
40188525 
40188550 
40188575 
40188606 
40188625 
40188658 
40188675 
40188700 
40188725 
40188775 
40188808 
40188825 
40188850 
40188875 
40188900 
40188915 
40188930 
40188945 
40168960 
40188975 
40188990 
40198000 
40274200 
49274220 
40274240 
40274260 
40274280 
40296000 
40529000 
40529300 
40529600 
40533500 
40536000 
40544000 


@ ei “@ 


IF SPLITTED THEN PUTSYMC™)™)3 & 
IF CURSYSCOMMA THEN & 
BEGIN & 
SPLITCSTARTS¥Me1 53 
PUTSYM(%e")3 &% 
SPLITTED t= TRUE3 % 
ENDS % 
NEWTYPE3$ T1 


CURMODE 


SYMTABLSTARTSYM) 


t= SET3 TieSIZE t= 23 


$= NUMBERS & 
IF CURTYPE=BOOLTYPE THEN % 


IF CURSY NEQ ANOSY THEN ERROR(64)3 


END ELSE 
IF FSSET 
BEGIN % 


% 
THEN & 


IF CURSYSASTERISK THEN &% 


BEGIN % 


SPLITCSTARTSYMs14)3 


PUTSYM(M5")3 & 


END ELSE 


ERRORC64)3 & 


MODE &%= NUMBERS & 


SPLITCST 


IF CURSY=PLUS THEN SYMTABCSTARTSYM]) 


IF FSET THEN PUTSYM(")"55 &% 


ARTSYMe1)3 & 


SYMTABLSTARTSYM] 


IF CURSy=MINUS THEN SymTABESTARTSYM] 


ERROR 


C64)3 % 


PUTSYM( "2" 95 MODE %= NUMBER$ & 


IF FSSET THEN PUTSYMC™)"y3 % 


IF CURSY=EQLSY THEN SYMTaBLESTARTSYM] 


ELSE &% 


IF CURSY=NEQSY THEN % 


BEGIN &% 


SPLITCSTARTSYMs 433 
ABLSTARTSYM41) 3= "SEQUAC"S % 
IF TYPETABICLEFTTYPE) eFORMSSET THEN % 


SYMT 


BEGIN % 
SYMT 


ABCiJ) t= "SSTORCS 


EXPRESSION? & 


PUTSYM()H)3 


WRITEEXPR3S 2% 


END ELSE 


IF TYPETAB2CTX) LSS 9 OR TYPETAB3CTX] GTR 93 THEN ERRORC5S1)3 
t= TSIZE 15 23 TYPETABICTYPEINDEX] 


T1,SIZE 


IF T1,FORM=SET THEN % 


BEGIN & 


GENC%s"%5157)3 


ENDS % 


IF T1,FORM=SET THEN & 
BEGIN % 
GENC™sO"s206)3 % 


IF NOT PARAM THEN GEN(™31%5256)3 &% 


END3 ®& 


BEGIN % 


IF T1,FORM=SET THEN & 


BEGIN & 


GENC"s"o497)3 % 


SYMTABCSTARTSYMJ:= ™" NOT 


NUMSYMS 


= "SUNIOC"S 


t= "SEQUAC™ & 


t= NyMSYMS = 33 


CHECKTYPESCLEFTTYPE*CURTYPE)3 ¢ 


t= T13 % 


GENIDC"W",LEVELIOOO+#NAM,5)3 & 


ta "SINTS(%3 


t= "SUNTOC* ELSE & 
t= "SDIFFC™ ELSE ¥ 


"3 > 4 


% 


T4eSTRUCT t= 03 X& 


% 


% 


40551500 
40552006 
40552200 
40552400 
40552600 
40552800 
40552850 
40558000 
40561000 
40587000 
40593006 
40593100 
40593200 
40593300 
40593400 
40593500 
40593600 
40593700 
40593800 
40593900 
40608500 
40650000 
40651000 
40652000 
40653000 
40654000 
40655000 
40668500 
40686000 
40713000 
40713150 
40713300 
40714000 
40714150 
40714300 
60080100 
60080200 
60080300 
60080400 
60080500 
60080600 
60080700 
70210000 
70214000 
80046200 
80046400 
80046600 
80046800 
80064700 
80064750 
80064800 
80064850 
80064900 
80608105 
80608111 
80608114 
80608415 


GENIDC*W'"s LOOOxCCURLEVEL 41 )4#NAM»5)3 % 80608117 

END3 80608118 
ENDS & 80608119 
IF TYPETABLENAMETABSCCURLEVEL41 »PARAMTABL I J+ePARAMNAME ),TYPE80627200 
),FORMSSET 80627205 

THEN BEGIN % 80627400 
GENC™s"o157)5 % 80627600 

GENTIDC "Ws 1L000x(CURLEVEL +1) +PARAMTABLI] «PARAMNAME 80627800 

2593 % 80627801 


ENDS 80627850 
S#PAyCH 602 FOR PASCAL xvIe/ CONTAINS 5 CARDS. CORRECT REPRESENTATION OF *NIL*, 
$t RECEYVED FROM DAg LANGHYMR ON 6/07/78, 
$$ DAVIO A COOPER , HERIOT@WATT UNIVERSITY. +. JULY 1978, 


NILTYPE 3% 63 Meee TYPE OF "NILN wae 20363000 
TieFORM *= POINTERS; TYPETARIC6O] t= T13 20364000 
EMPTYSET t= 73 % 20364500 
T1eFORM &= SET} TYPETABIC7) &* T13 20365000 
NUMTYPES t= 73 & 20365500 


$# PATcH 603 FOR PAScCAL.XVI.0. CONTAINS 6 CARQHS. CORRECTION TO PATCH 601 
$3 DAVID A COOPER & S O ANDERSON» HERIOT#WATT UNIVERSITY. UST AUGUST 1978 


$3 
INTEGER STARTSYMsFIRSTSYMs MODES TYPELSF3 40618000 
PUTDUMMY3 STARTSYM :2 FIRSTSYM #* NUMSYMS3 40621000 
SPLITCFIRSTSYMs1)3 40650000 
IF CURSY = PLUS THEN SYMTABLFIRSTSYM] 32 “"SUNIOC™ ELSE 40651000 
IF CURSY = MINUS THEN SYMTABLCFIRSTSYM] 32 "SOIFFC™ ELSE 40652000 
ERROR(64)3 40653000 

$# PATCH 613 FOR PASCAL,XVI,0, CONTAINS 7 CARDS, 
$ 40105100 
$ 40105200 
$ 40105300 
$ 40105400 


IF INSIOEPARENS a~ND SIMPLEVaR AND TYPETapiCCURTYPEJ,STRUCT > 0 a~aND 40198500 
TYPETABLCCURTYPE],FORM < FILES THEN SYMTABESTARTSYM],03516] t= 40198600 
WHS 40198700 


-$# PATCH 708 For PASCALexVIe0 HAS 179 CARDS, REDUCE THRASHING By CODE CHANGE 


$; TO IMPROVE RUN TIME EFFICIENCY BY REARRANGING THE THE COMPILERS CODE, 

$*! THE COMPILER HAD A HIGH OVERLAY 176 TIME AND HIGH ELAPSED TIME IN RELATION 
$: TO THE PROCESS TIMEs AND OBSERVATION OF THE 85700 CONFIRMED THAT IT WAS 

$1 THRASHING IN 32K. THIS pATCH ATTEMpTS TO REDUCE THE CORE REQUIREMENT BY 

$1; REARRANGING THE SEGMENTATION OF THE CODE. LARGE SEGMENTS ARE ELIMINATED 

$1 SO aS TO aVOID PULLING CODE THaT WILL NOT BE EXECUTED INTO CORE aND TO 

$1! RELEASE CODE SEGMENTS AS SOgN AS EXECUTION HAS PASSEDe FOR EXAMPLE» THE 

$1 CROSS REFERENCE ROUTJNES WERE ALL CONTAYJNEN IN THE LARGE OUTER BLOCK CODE 

$1 SEGMENT WHICH INCLUDED VARIQUS UTILITY ROUTINES. 

$: A FEATURE WHICH CONTRIBUTED SIGNIFICANTLY TO LARGE SEGMENTS WAS THE HIGH 

$3! NUMBER OF "DEFINES" WHICH RESULTED IN SIZEABLE SECTIONS OF CODE BEING 

$: GENERATED IN@LINE» SOMETIMES MANY TIMES IN ONE SEGMENT. THESE "DEFINES" 

$$ WERE REABILY CHANGED INTO PROCEQURES. (a SIDE EFFECT OF VIRTUALLY ELIMINATING 
$! DEFINES FOR CODE Is THAT THE "BEND OPTION NO LONGER RESULTS IN NUMEROUS 

$: BLANK LINES REPEATING THe SAME SEQUENCE NUMBER FOR EVERY “END" IN THE NESTED 
$t DEFINES.) 


$s: NILS A OTTEs UNIVERSITY oF NATAL» OURBANe AUG = NOV 19776 

$3 

$ 10167000 
$ 10166000 
$ 10169000 


@®eeeeeeee&eeeee#ee8eeeeee 6 ® 


VALUE NAMEL>» 
REAL NAME 1» 
INTEGER 
FORWARDS 


PROCEDURE PRINTERRORS3 
PROCEDURE HEADINGS 
BEGIN 
END OF HEADINGS 
PROCEDURE PRINTLINES 
BEGIN 
END OF PRINTLINES 
PROCEDURE NEWCARD3 
BEGIN 
REPLACE XLINEPNT BY 
REPLACE LINEPNT BY 
END OF NEWCARD3 
DEFINE GENCGENL»GEN2sGEN 
GENIDCGENIDI,GENID2,GENI 


PROCEDURE GENICGENTs TX 
VALUE GENT» TXT» NUMs NB 
BOOLEAN GENT$ ALPHA TXT 
BEGIN 


IF GENT THEN 
TEXTCO] 82 TXT 
END 
ELSE 
CHLO] %3 TXT3 
END END GENI3 
PROCEDURE GENINTC N D3 
VALUE N3 INTEGER N3 
BEGIN 
INTEGER NABSs NSIZE}3 
END OF GENINT3 
PROCEDURE WRITEALGAL? 
DEFINE NEWSEGMENT = 
DEFINE NEWSEGMENT = 
DEFINE NEWSEGMENT = 
DEFINE NEWSEGMENT & 
ALPHA THISIB, CURNAME1, 
PROCEDURE SEARCHTAB( TA 
VALUE TABS INTEGER TAB} 
END OF SEARCHTAB3 
PROCEDURE SEARCH} 
BEGIN 
END OF SEARCH; 
PROCEDURE NEWNAMEC NAME 
VALUE NAME1s NAME2s TABS 
ALPHA NAME1s NAME23 INT 
END OF NEWNAME3 
DEFINE NEWSEGMENT = 
DEFINE NEWSEGMENT = 
NOEFINE NEWSEGMENT = 


NAME2sTABLE*DECL3 


NAME23 
TABLES BOOLEAN DECL; 


FORWARDS 


20016000 
20017000 
20018000 
20019000 
20020000 


Zee PRINTS A HEADING AT START OF NEW PAGEs20026000 


DEFINE NEWSEGMENT = HERE #3 


Zee PRINTS A PASCAL SOURCE CODE LINE 
DEFINE NEWSEGMENT = HERE #3 


Zw** READS A NEW PASCAL SOURCE CODE CARD 
DFFINE RESULT = ICARD(#]s ETC #3 

" " FOR 16 WORDSS 

cARDPNr FOR 10 WORDS» XLINEPNT FOR 6 WORDS; 


3) = GpNICTRUGSGENLsGEN3*GEN2) #» 
D3)= GENICFALSE,GENIDI,GENID2,GENID3) #3 


Ts NUMs N )3 


3) INTEGER NUM» NZ 
DeFFINE START = NUM #» NDIG = N #3} 


yaee GENERATE A TEXT "TxXT"s CONSISTING 


%ex* GENERATE AN ALGOL IDENTIFIER, 


DEFINE RESULT = ALGOL CODE #3 


geese WRITES A COMPLETED ALGOL CARD TO 

HERE #3 

HERE #3 

HERE #3 

HERE #3 

CURNAMF2s % USED IN SCANNER 

B )3 Zee* SEARCH NAME TABLE "TAB" FOR THE 
Zaee IDENTIFIER JUST READ, 


Zee SEARCH ALL TABLES CURRENTLY IN USE. 
DEFINE RESULT = THISID #3 


f»sNAME2, TAB 23 
EGER TaB3 
HERE #3 


HERE #3 
HERE #3 


PROCEDURE CHECKTYPESC LEFTTYPes» RIGHTTYPE )3 


VALUE LEFTTYPEs RIGHTTYP 
BEGIN 


E3 INTEGER LEFTTYPEs RIGHTTYPE; 


20027000 
20033000 
20036000 
20037000 
20047000 
20050000 
20051000 
20056000 
20057000 
20061000 
20063100 
20063200 
20063300 
20063400 
20063500 
20063600 
20063700 
20063800 
20064000 
20067000 
20070000 
20073000 
20076000 
20079000 
20082000 
20083000 
20084000 
20085000 
20097000 
20145000 
20146100 
20168100 
20180100 
20193100 
20205000 
20208000 
20208100 
20221000 
20223000 
20224000 
20233000 
20236000 
20236100 
20236200 
20250000 
20515100 
20533100 
20546100 
20802000 
20803000 
20804000 
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REAL TTis TT23 INTEGER Fi, F2e LT» RT3 
END OF CHECKTYPES3 
PROCEDURE FILEPARAMC DEFAULTFILE 03 a*ee CHECKS THE FIRST PARAMETER 
VALUE DEFAULTFILE;3 INTEGER DEFAULTFILEsSuen TO SEE IF IT IS A FILE. 
BEGIN DEFINE RESULTS = FILENAME @& LPARFOUND #3 
END OF FILEPARAMS 
REAL CURVALS INTEGER CURLENGTH3 


PROCEDURE CONSTANTC CVALs CTYPE )3 
REAL CVALS INTEGER CTYPE3 
BEGIN 
INTEGER TFORM3 BOOLEAN SIGNEDs NEGATIVES 
END OF CONSTANT$ 


$ 
ALPHA C» CX3 %¢ CURNAME, & CURNAME2 MOVED TO 20205000 ) 
INTEGER LASTCHARPOS; gC CURVAL, CURLENGTH MOVED TQ 20872000 ) 
PROCEDURE INSYMBOL3 Saxe IDENTIFIES THE NEXT SYMBOL *eeaee 
BEGIN 
PROCEDURE NEXTCHAR; %yee GETS THE NEXT CHARACTER, 
END OF NEXTCHARS; 
$ SET VOIDT 
$ POP VOIDT 
DEFINE Ty = EXP #3 % USED AT 301478000 
BEGIN DEFINE NEWSEGMENT = HERE #3 
END NEWSEGMENT; 
$ 
$ 


INTEGER EXPRLEVELS 
DEFINE PUTSYMCS) = PUTTEXTC CSy81l418536) ) #3 


$ SET VOIDT 
$ POP VOIDT 
DEFINE PUTDOUMMY = PUTTEXT("3009000") #3 
$ SET VOIDT 
$ POP VOIDT 
PROCEDURE WRITEEXPR; %yee WRITE GENERATED ALGOL EXPRESSION 
REAL Sx} INTEGER Tl» Tx3 
END OF WRITEEXPRS 
PROCEDURE CHECKEXPRC LLIMs, ULIM 93 &*** WRITE CODE TO CHECK VALUE 
VALUE LLIMs ULIMS INTEGER LLIMs ULIMS 
BEGIN DEFINE CHECK = VALUE &3 
END OF CHECKEXPR3 
INTEGER Ti» T5; % USED ONCE EACH 
TISSTeFIRSTWITHSYM3 T5seTeLASTWITHSYM3 
FOR T1s*T1 STEP 1 UNTIL 75 pO PUTTEXTCWITHTaBlT11)3 
DEFINE Ti =T #3 % USED AT 40558000 
$ SET VOIDT 
$ POP VOIDT 
PROCEDURE PARAMETERS %*** CHECK THAT THE FUNCTION HAS 1 PARAMe 
BEGIN 
INSYMBOL3 
IF CURSYsLPAR 
THEN BEGIN 


PUTSYMC"™C)3 INSYMBOLS EXPRESSION} 
IF TYPETABICCURTYPEJeFORM=NUMERIC THEN CURTYPES=INTTYPES 
IF CURSY4RPAR THEN BEGIN ERROR(3)4 SKIPCRPAR) END3 


20805000 
20838000 
20844000 
20844100 
20845000 
20869000 
20872000 
20873000 
20874000 
20875000 
20876000 
20876100 
20921000 
30082000 
30083000 
30084000 
30087000 
30087100 
30087200 
30088000 
30093000 
30095006 
30098000 
30099400 
30261100 
30282200 
40016000 
40017000 
40018000 
40029000 
40029900 
40033000 
40041000 
40042000 
40044000 
40053000 
40054100 
40066000 
40069000 
40069100 
40070000 
40077000 
40086100 
40094000 
40095000 
40298000 
40299000 
40309000 
40331000 
40332000 
40333000 
40334000 
40335000 
40336000 
40337000 
40338000 
40339000 


) @ @ 


j : Ge, She Es ESS e ee 


$ 
BEGIN LABEL LABFOUND3 
THISIDeIDCLASS=CONST AND BOOLEANCTHISID«FORMAL) OR 
THISIDe IDCLASS=FUNC 
THEN ASSIGNMENT ELSE 
$ SET VOIDT 
$ POP VOIDT 
VALUE RECTAB»FIRSTADORS 
INTEGER RECTABsFIRSTADDReLASTADOR; 
$ SET VOIDT 
$ POP VOIOT 
PROCEDURE TYPEDECL( TTYPEs TSIZE )3 Reewee TYPE DECLARATION teean 
INTEGER TTYPEs TSYZE3 errr er TPCT TirTrTrricrirrrir 
BEGIN 


PUTSYMC™)")3 IF CURSY3RPAR THEN INSYMBOL3 
END ELSE ERROR(3)3 % OR ERROR(58) 
END OF PARAMETER} 


INTEGER RECINXs ARRSTRUCT» TX» SXs Ts N53 REAL Tis T2s 133 
BOOLEAN FIRSTs PACKED; 


END TYPERRS 
PROCEDURE SUBRANGE3 


REAL VALX1» VALX2» Ti3 
INTEGER TYPEX1» TYPEX23 


CONSTANTCVALX1eTYPEX1 3 
TF TYPETABALTYPEX1]eFORM>CHAR THEN ERRORC 41) 
IF CURSYZDQUBLEDOT THEN ERROR(53)3 
INSYMBOL3 
CONSTANTCVALX2sTYPEX2)3 
IF TYPEX1>0 AND TYPEX2>0 THEN 
IF TYPEX1L4TYPEX2 THEN ERRORC11) ELSE 
IF VALX1>VALXK2 THEN ERROR(54)3 


IF (TAtSTYPETABALTYPEX1]eFORM) = SYMBOLIC THEN T4t=SUBTYPES 


NEWTYPES TTYPEL=TYPEINDEX3 

TIeSIZES*TSIZEtz13 TieSTRUCTI=0% T1LeMAINTYPE S@TYPEX13 

TYPETABLETYPEINDEX] 22713 

TYPETAB2CTYPEINDEXJs=3VALX13 TYPETAB3CTYPEINDEX] s2VALx23 
END OF SUBRANGE3 


DEFYJNE DEC = POINTER #3 
DEFINE DEC = ARRAY #3 
DEFINE DEC w= FILE #3 
DEFINE DEC = SET #3 
DEFINE DEC ®& RECORD #3 
LABEL CASEPARTs EXIT3 
BEGIN DEFINE DEC = VARIANT #3 
LABEL CASETYPEID3 
FND3 
DEFINE DEC = FILE #3 
GENCY S%9396)3 


DEFINE DEC @ LABEL #3 
DEFINE DEC = CONST #3 


Xaawx SUBRANGE DECLARATION «xe 


BEGIN Rikki ek Rake eK te 


40340000 
40341000 
40342000 
40350000 
60396000 
60399000 
60423000 
60423200 
60424000 
70013000 
70016000 
70018000 
70019000 
70022000 
70034000 
70035000 
70036000 
70037000 
70038000 
70039000 
70040000 
70041000 
70042000 
70048000 
70050000 
70051000 
70052000 
70053000 
70054000 
70055000 
70056000 
70057000 
70058000 
70059000 
70060000 
70061000 
70062000 
70063000 
70064000 
70065000 
70066000 
70067000 
70068000 
70069000 
70117100 
70143100 
70180100 
70200100 
70220100 
70247000 
70285100 
70285200 
70349100 
80066100 
80107000 
80424100 
80447100 


es © 


DEFINE DEC = TYPE #3 80475100 
DEFINE DEC = VAR #3 80496100 
IF CURSYsFUNCSY OR CURSY=PROCSY x 80540900 
THEN BEGIN DEFINE DEC = CODE #3 80540910 
END OF SEGMENT FOR PROCEDURE DECKARATIONS3 80658100 


$¢ PATCH 701 FOR PASCAL+XVI+e0 CONTAINS 14 CARDSe REOUCE THRASHING BY ARRAY CUTS 
$t TO IMPROVE RUN TIME EFFICIENCY BY REDUCING ARRaY SIZES. THE MOST SIGNIFICANT 
$! CONTRIBUTION TO THE COMPILERS THRASHING BEHAVIOUR WAs THE EXCESSIVELY LARGE 
$! DATA ARRAYS, THIS PATCH SUCeEEDS IN DRASTICALLY REDUCING THE CORE REQUIREMENT 
$! OF THE COMPILER By MAKING maST OF THE LARGE ARRAyS MUCH SMALLER WITHOUT 

$: IMPOSING UNREASONABLE RESTRICTIONSe IN PARTICULARs THE THREE ARRAYS» 

$3 NAMETABL> NAMETAB2s NAMETAB3 WERE EACH (0880s 081022] AND HAVE BEEN REOUCED 
$$ TO C0830» 0:3073. THESE REDUCTIONS HAVE NOT PREVENTED THE COMPILATION OF 

$3 A LARGE PASCAL PRCGRAM OF AROUT 4000 LINESs NAMELY THE P4 PASCAL COMPILER 

$: FROM ZURICH. IN FACTs PRIOR TO THE CHANGES INTRODUCED BY PATCHES 700 & 701» 
$t THe P4 PaScal COMPILER TOOK 60 MINUTES ELAPSED TIME TO COMPILE» WHICH WaS 

$$ REDUCED To 9 MINUTES By THESE PATCHES» wHILE THE PROCESS TIME HAS REMAINED 

$1: CONSTANT AT 9 MINUTES, 

S$teeee NOTE THAT IF "MAXNAMES® IS CHANGED THEN THERE ARE 7 DEFINES IN THE FILE 
$3 PASCAL/PRELUDE THAT MUST ALSO BE CHANGED. 

$? "yAXNAMES”® IS CHOSEN AS A PRIME NUMBER AS IT IS USED AS A mOOULUS FOR A HASH 
$; FUNCTIONs THE PASCAL IDENTIFIERS ARE TRANSLATED TO ALGOL NAMES USING LEVEL 
$*t AND HASH INDEXs HENCE CHANGING “"MAXNAMES™ CHANGES THE alLGOL NaMES FOR 

St "INPUT"s “"OQUTPUT"s & "PRT25", 

$: NILS A OTTe>» UNIVERSITY OF NATAL» DURBAN, AUG * NOV 1977, 


$3 
DEFINE MAXTABLES = 30 #» %MAX NUMBER OF LEVELS IN IDENTIFIER TABLE+ 10042000 
MAXNAMES =307 #>» ZmAX NAMES IN EACH ROW OF IDENTIFIER TABLE + 10043000 


% ONLY USED IN WITH STATEMENT TO TEST 10044001 
MAXCASES 264 #, ZMAX LABELS IN A CASE"STATEMENT. 100465000 
MAXLABS 250 #, %MAX NUMBER OF LABELS IN PROGRAM, 10046000 
MaXPaRaMS 200 #» ZMaX NUMBER OF PaRaMETERS IN WHOLE PROGRAM.10047000 
MAXTYPES 2250 #, %MAX NUMBER OF DIFFERENT TyPES. 10048000 
MAXCONSTS 400 #» %5,;ZE OF TABLE FOR CONSTANTS, 10049000 
MAXWITHSYMS= 70 &s BMAX NUMBER OF SYMBOLS USED BY WITH#STATMS.10051000 
MAXS¥MS =200 #» ZMAX NUMBER OF SYMBOLS IN ONE EXPRESSION. 40052000 
LISTLENGTH =100 #» ZMAX LENGTH OF VAR & PARAM LISTS. 10053000 
MAXEXTFILES#109 #>» ZMAX NUMBER OF EXTERNAL FILESe 10054000 
MAXFILES =10 #» %maX NUMBER OF FILES DECLARED aT ONE TIMEe 10055000 
MAXPNTRS =10 #, ZMAX NUMBER OF YNDECLARED POINTERS (CFORWD),.10056000 


$# PATCH 702 FOR PASCAL,.XVI,0 CONTAINS 4 CARDS, S8O0GLEAN ARRAY "ERR”® 120 TO 4 
$! To EXTEND THE REDUCTIONS OF PATCH 701 To THE BOOLEAN ARRAY “ERR* FOR NOTING 
$; THE SYNTAX ERRORS THAT HAVE OCCURREDse THIs PATCH COMPRESSES THE ARRAY FROM 
$t 120 WORDS To 4 WORDS BY USING 32 BITS IN EACH WORD. 

$: In AODITIONs THIS PATCH INSERTS THE ERROR COUNT ON THE LEFT OF THE LINE 

$3 WHICH REPORTS THE SYNTAX ERRORSe 


$3; NILS A OTTE> UNIVERSITY OF NATAL» DURBAN. AUG = NOV 1977, 

$t 

ARRAY ERRP[01333 % HOLOS 128 BITS % RECOROS ERROR MESSAGES USED. 10156000 

DEFINE ERRCERR1] = BOOLEANCO&ERRPCERRI,COP2]]COFERR1,(495)91)) #3 10156106 
ERRPCERRNUM,(C6#2)})% csERRPCERRNUM.L682)) & 1fERRNUM,C 4253808193 20182000 
REPLACE POINTERCERRLINECOJ)*#4 BY NUMERRS FOR 4 DIGITS; 20194900 


$# PATCH 703 FOR PASCALeXVI.0 CONTAINS 6 CARDSe REDUCE THRASHING BY SAVE CORE 
$3 TO IMPROVE RUNTIME EFFICIENCY BY REDUCING NON#OQVERLAYABLE AREASe 

$$ THIS PATCH REDUCES THE SaVE CORE REQUIREMENTS BY DECREASING THE FILE plOck 

$% SIZES AND ALSO THE NUMBER Of BUFFERS WITHOUT UNDULY RETARDING THE COMPILATION 
$t SPeeDe THe SIZE Cr THe OISK AREAS IS KEPT A MULTIPLE OF THe ORIGINAL BLOCK 


@®eee8ees2v8ee28eee8e8ch.h)thUcCmhCOmhUCcCOmUCUchOOCUCOUhUchOCUlcOrmhUchOCUc }OmhlUST CU? 


$% 
$3 
$3 


$t 

FILE caRD "SOURCE" (€1910230)3 
FILE PASCALGOL DISK SERIAL (201300) €1510530,SAVE 0)3 
FILE XREFFILE OySK SERIAL (2083000) (193%30)3 


WRITE CPASCALGOL »MERGE )3 


$ 
$ 
$3 
$# 
$1 
$3 
$1 
$1 
$ 


$3 


HAA 


SIZE WHERE RELEVANT TO AVOIn INCOMPATIBILITY PROBLEMS, 
In BLOCK SIZES OF THE OBJECT PROGRAM ARE ALSO MADE. 
NILS A OTTEs UNIVERSITY OF NATALs DURBAN. AUG = NOV 1977, 


% PaSCaL SOURCE cODE INPUT FILE 


% FOR CROSS REFERENCE 

IF RECSIZEsi OR RECSIZEs10 THEN GENINT(30) 

GENC*» SAVE» 693)3 

GENC™30)3"s 4s4)5 
PATCH 704 FOR PASCALeXVI-e0 HAS 
TO REDUCE THe COMPILER™S OVERHEADS, FIRSTLY* THE ALGOL CODE FILE 
PASCRUN/DISK Is RENAMED PascAL/PRELUDE. ORIGINALLY» 
THe PAScCAL/PRELUDE FILE INTO THE GENERATED CODE FILE BEFORE STARTING 
TRANSLATE THE PASCAL PROGRAM. 


8 CARDS. 


COMPARABLE REDUCTIONS 


10035000 


% ALGOL CODE FILE10037000 


10137000 
80119000 
80122000 
80123000 


REDUCE QVERHEADS IN COPYING FILE 
THE COMPILER COPIED 


TO 


THIS PATCH SAVES THE 3 SECONDS OR SO REQUIRED 


For rHIs By SETTING THE *TApPE™* OPTION FOR THE ALGOL COMPILER AND LABEL 


EQUATING THE TAPE FILE To PASCAL/PRELUDE. 
Ig NEGLIGIBLEe 
COMpILE SYNTAX FREE« 
DIRECTLY IN THE PASCAL COMPILERe 

SEE PATCH 711¢ THIS NEEDS PATCH 705-6 

NILS A OTTE>s UNIVERSITY oF NATAL» DURBAN. 


THE OVERHEAD TO THE ALGOL 


AUG * NOV 1977. 


ERRORS C15," ERRORS DETECTED ",20("#") /), 
ALIST C"$ SET LIST “ys 
MERGE ("s SET TAPE RESET S$" / 


"$ RESET TAPE» T739"99000000" I» 
TERMMESS ("awnse COMPYLATION TERMINATEDe™)3 
% ALGOL MUST COMPILE PRELUDE FIRST 
SET VOIOT 
POP VOIDT 
ALGOL FILE TAPEs PASCAL/PRELUDE SERIALS ALGOL FILE CARD=", 
PATCH 705 FOR PASCALeXVI.O CONTAINS 21 CARDS. GENERATE A BETTER ZIP 
THIS PATCH TIDIES UP THE CONE THAT GENERATES TRE ZIP TO PASS CONTROL 
COMPATIBLE ALGOL COMPILER. 
NILS A OTTEs UNIVERSITY OF NATAL» DURBANS 


"5 


AUG = NOV 1977, 


PROGNAME t= IF CURLENGTH < 7 
THEN *" MR CURNAMELC4LP6xCURLENGTH@1 S6xCURLENGTH } 
ELSE CURNAME26¢f516]&CURNAME 4(418353 3633 
ARRAY ZIPARRAY[0216]3 
DEFINE PPROGNAME = 13 #» PALGOLNAME = 14 #2 
PLIBRARY «= 15 8» PUSER = 16 #e 
PCP1) =z POINTERCZIPARRAY(P1))+1 FOR 7 #3 
SET VOIpT 
POP VOIDT 


ZIPARRAYCPPROGNAMEJ2PROGNAMES ZIPARRAYCPALGOLNAME] S@ALGOLNAME3 
ZIPARRAYCPLIBRARYJt= IF SAVEFACTOR>O THEN "LIBRARY® ELSE 
IF SAVEFACTOR<O THEN ™ SYNTAX" ELSE ™® & RUN 3 

ZIPARRAYCPUSERI :sUSER3 
REPLACE POINTERCZIPARRAYE*}) BY “cc COMPILE “> 

PCPPROGNAME ds "/%, PC PUSER)» 

" XALGOL "» PCPLIBRARY) =» 

"3 ALGOL FILE TAPEs PaSCAL/PRELUDE SERIALS ALGOL FILE CARD=", 

PCPALGOLNAME )s» "/%, PCPUSER)» ™ SERIALS END 3 


THE ADVANTAGE IS EVEN GREATER IF THE PROGRAM FAILS TO 
TME FYLE PASCAL/PRELUDE IS NO LONGER REFERENCED 


COMPILER 


10188000 
10189000 
10190100 
10190200 
10192000 
90022000 
90023000 
90032000 
90119000 


TO THE 


90013000 
90042000 
90042010 
90042020 
90092000 
90095000 
90096000 
90097000 
90098000 
90104000 
90109000 
90112000 
90113000 
90114000 
90115000 
90116000 
90117000 
90118000 
90119000 
90120000 


aus Motes See es "s 


$3 


SET VOIOT 
POP VOIOT 


90121000 
90128000 


PaTcH 708 FOR PaScaleXVI.O0 CONTAINS 25 caRDSe LINE PRINT FILE MaY BE DISK 
TO ENABLE THE COMPILER@S PRINT FILE TO BE LABEL EQUATED TO DISK AS FOR OTHER 
B5700 COMPYLERS, NR PARTICULAR» THIS PATCH CHANGES THE NAME TO LINE TO BE 
CONSISTENT WITH ALL THE SYSTEM COMPILERS, THE ABILITY TO LABEL EQUATE FILE 
“LINE” TO DISK IS NECESSARY IF THE COMPILER IS TO BE USED FROM A TERMINALe 
NgTE THAT A BLOCKED FILE SHgULD NOT HAVE VARIABLE LENGTH RECgROS IF It IS 

TO BE LABEL EQUATED TO A PRINTERe IF LESS THAN THE MAX NUMBER OF WORDS PER 
REcORD IS WRITTEN» THE BalLaNCcE OF THE RECORD REMAINS UNCHANGED FROM WHaT WaS 
LAST IN THE FILE BUFFER» sO THAT ON BEING PRINTED, "GARBAGE" APPEARS AT THE 


END OF SUCH LINES, 
NILS A OTTE, UNIVERSITY nF NATAL, DURBAN} AUG = NOV 1977, 


SAVE FILE OUT LINE DISK SERIAL (2021200) (1517290sSAVE 1)3 % PRINT FILE 10036000 


% AvOIn BLOCKING RECORDS OF VARIABLE LENGTH 


ARRaY ICARD» ALGOLGARDCOS9]» LyNES» XLINELO!16)3 


% AVOID BLOCKING VARIABLE LENGTH RECORDS 


ARRAY HEADTEXT» ERRLINELOL1633 


WRITEC LINECNOJs17eXLINEL*))3 
WRITEC LINECNOJs17»XLINEp#))3 
WRITECLINE® 17s, InNESC #93 
WRITECLINEs 47sERRLINEC*))3 
LINEPNT ®*PQINTERCLINESC13)3 
REPLACE LINEPNT@=8@ BY ” © FaR 17 WORDS$ 
REPLACE XLINEPNT"8 BY LINEPNT@"8 FOR 17 WORDS$ 
REPLACE POINTERCERRLINEC*]) By "*eew ", LINEPNT FOR 16 WORDS3 
REPLACE ALGOLPNT gY LINEPNT FOR 9 WORDS; 
REPLACE POINTERCHEADTExT£C*3) BY LINEPNT FOR 10 wORDSs "PAGE 1 ', 
LyINEPNT FOR 6 WORDS3 
WRITECLINE® 179XREFLINEC#))3 
LOCKC LINEs * 33 % & CRUNCH 
WRITECLINEs 17eXREFLYNEC*IIS LINECNT?FLINECNT#*L3 
WRITECLINEs 17+XREFLINGC*))% LINECNTS#LINECNT413 
WRITECLINE» TERMMESS)3 
WRITECLINEs NOERRORS)$ 
WRITECLINEs ERRORS»NUMERRS)3 
WRITECLINEs ERRORMESS1011)3 
WRITECLINEs ERRORMESS2CLI@=60))3 


10036001 
10130000 
101300014 
10133000 
20042000 
20043000 
20045000 
20195000 
20315000 
20317000 
20318000 
20319000 
20321000 
20326000 
20326100 
20549000 
20550000 
20560000 
20571000 
90084000 
90111000 
91110000 
91112000 
91114000 


PATCH 709 FOR PASCAL.XVI.O0 CONTAINS 17 CARDSe NO PRINT IF NO LIST & NO ERRORS 
TO OPEN THE PRINT FILE ONLY IF THE LIST OPTION Ig SET OR IF SYNTAX ERRORS 

ARE DETECTED, IF THE FIRST CARD IN THE PASCAL SOURCE RESETS THE LIST OPTION 
(#$L= *#) AND NO SYNTAX ERRORS ARE DETECTED, THEN THE PRINT FILE WILL NOT BE 
CREATED (EVEN FOR THE HEADING) aS FOR OTHER COMPILERS+ IN PARTICULAR» THIS 


IMPLEMENTATION DOES yOT REQUIRE A TEST PRIOR TO PRINTING EACH LINE TO 


DETERMINE WHETHER A HEADING HAS BEEN PRINTED, IT ONLY OOES THIS TEST WHEN 
THE LIST OPTION IS SET AFTER THE FIRST CARD OR EXPLICITLY THEREAFTER» oR 


IN THE "PRINTERRORS* ROUTINES 
NILS A OTTEs UNIVERSITY mF NATAL» DURBANs AUG © Nov 1977, 


IF PAGECNT=1 THEN WRITECLINECNO]917sHEADTEXTELC*#I]) ELSE 
WRITEC LINECPAGEI)3 
WRITEC LINECOBL I] o17sHEADTEXTE(#] 3 
IF NOT LISTOPTION THEN 
BEGIN IF PAGECNT=0 THEN HEADING$ PRINTLINE END3 
REPLACE POINTERCHEADTEXTE*})+45 BY TEXTPNT+5 FOR 2at/", 
TEXTPNT+1 FOR 25 “ss TEXTPNT+#3 FOR 23 


20029900 
20030000 
20031000 
20194000 
20194100 
20329000 
20330000 


®eeeeeseeeeese#es#e8ee8etet e686 686 6 8&8 &@ OCU C® 


NEWCARDS LISTOPTIONS®CHECKOPTION:=TRUES % DEFAULT 20402100 
INSYMBOL3 % ANALYSING FIRST CARD MAY CHANGE DEFAULT LIST OPTN 20402200 

IF LISTOPTION AND PAGECNT=q THEN HEADINGS % ON FIRST PAGE, 20402300 

IF LISTOPTION THEN TF PAGECNT=0 THEN HEADINGS x ON FIRST PAGE30282100 

C tz # 4; % TO INITIALIZE "INSYMBOL” 90034000 
INITIALIZE; % COMPILER TABLES» NEWCARD» INSYMBOL 90035000 
$ 90036000 
IF PaGECNT > 0 % THERE HAS BEEN SOME LISTING 90088000 
THEN BEGIN WRITEC LINELOBL] 93 WRITEC LINECDBL] ) ENDS 90089000 
If PAGECNT>O THEN % THERe HAS BEEN LISTING 90110000 


$# PATCH 710 FOR PASCAL «XVI.O CONTAINS 4 CARDS, NO OVERPRINTING WITH BLANK LINE 

$: TO PREVENT OVERPRINTING WITH BLANK LINES. IF THE OPTION FOR "BOLDFACE" 

$? PRINTING OF RESERVED WORDS 1S SET (*$R+ *) THEN EACH LINE IS CONSTRUCTED BY 

$: 2 QVERPRINTS FOR THE RESERVED WORDS ONLYs THEN ONE PRINT OF THE FULL TEXTe 

$$ THE AIM OF THIS PATCH IS TO SKIP THE OVERPRINTING FOR ALL THOSE LINES IN 

$: WHICH NO RESERVED WORDS OCCUR. 

$! NILS a OTTEs UNIVERSITY OF NATAL» DURBANs AUG = NOV 1977, 

$3 

DEFINE RESWORDPRESENT = RESWORDOPTION,£C1381) #3 10159100 
IF REALCRESWORDOPTION) = 3 THEN & RESERVED WORD IS PRESENT 20040000 
RESWORDOPTION t= RESWORDOPTION AND TRUE % RESET RESWORDPRESENT 20057100 

RESWORDOPTION != BOOLEANC3)3 % SET RESWORDPRESENT BIT 30179000 

$# PATCH 711 FOR PASCAL «XVI.0 CONTAINS 10 CARDS. PASCOOL/USERCODE UNIQUE NAME 

$3! TO GENERATE a UNIQUE FILE NaME IN THE DISK DIRECTORY, THIS PATCH CHANGES THE 

$t METHOD FOR GENERATING A UNIQUE FILE NAME FOR THE ALGOL SOURCE CODE OuTPuUT OF 

$1 THe COMPILER, FORMERLY» THrS WAS (ONE USING THE TIME FUNCTION TO OBTAIN 

$! SomE RANDOM DIGITS. THE METHOD USED IN PATCH/MERGE IS ADOPTED HERE» NAMELY 

$; STARTING WITH THE PREFIX ¢(MFID) "PASCOQ4"» A SEARCH IS PERFORMED TO DETERMINE 

$t WHETHER SUCH A FILE NAME IS ALREADY CATALOGUED. IF Sos 1 IS ADDED AND THE 

$: SEARCH REPEATED. IN ADDITION» THE FILE IS CREATED WITH A SAVE FACTOR 

$$ CRETENTION PERIOD) OF ZERO pnaYS SO THAT a HALT@=LOap WILL REMOVE THE FILE 

$$ AUTOMATICALLY.» 

$8 See PATCH 704. 


$3 NILS A OTTE, UNIVERSITY oF NATAL» DURBAN. AUG = NOV 1977, 
$? 

PROCEDURE SEARCHDISKDIRECTORYC Fe A )3 FILE FS ARRAY ACOW3 20222100 
SEARCH( Fy, AC#) 93 2 END OF SEARCHDISKDIRECTORYS 20222200 
20222300 
CHARPNT t= POINTERCCH(LO])#73 CHlCO] te * "3 20322000 
CHCOY t% "PASCOOO"$3 CHARPNT 3a POINTERC(CHEO})453 90016000 
PASCALGOLeFID t= USER te TIMEC@1)3 90017000 
DO BEGIN CizC+13 REPLACE CHARPNT BY C FOR 3 DIGITS3 90018000 
PASCALGOL.«MFID t= ALGOLNAMF %2 CHL0O}3 90019000 
SEARCHDISKDIRECTORY( PASCALGOL» LINESC#¥) 93 90020000 
END UNTIL LINESCO]=@13 % FILE not ON DISK 90021000 


$# PATCH 712 FOR PASCAL eXVIe0 CONTAINS 2 CARDS. MARK PROCEDURE LEVELS IN MARGIN 
$$ PATCH TO MARK THE START AND END OF PROCEDURES AND FUNCTIONS BY ANNOTATING THE 
$! MARGIN WITH THE SYMBOLS "+P &@ "#P" FOLLOWED BY THE LEVEL NUMBER, 
$t NILS A OTTe» UNIVERSITY OF NATAL» OURBAN, AUG = NOV 1977, 
$3 
MARGIN "+P", CURLEVEL)3 % MARK PROCEDURE LEVEL 80420100 
MARGIN( "@P"sCURLEVEL )3 % MARK END OF PROCEDURE 80702100 
$# PATCH 713 FOR PASCAL sXVI,0+. CONTAINS 14 CARDSeCORRECTS ERROR MESSAGE ETC. 
$3 CORRECTS THE DOUBLE "NO ErpRORS"” MESSAGE AND THE OUTPUT OF HEADINGS 
$3 WHEN L1 IS SET AFTER Lee 
$3 ALSO C@RRECTS THE SCANNING PROBLEM WHEN COMPILER OPTIONS ARE INCORRECT. 
$3 DAVID A COOPER» HERIOT#=WATT UNIVERSITY eeooee AUGUST 1978 


$3 


ERRORLO2MESSC//"102 **e WARNING ONLY» ILLEGAL COMPILER OPTIONe "210188750 


» % 
re ERRNUM=100 OR FRRNUM=109 
THEN NUMERRS %= NYUMERRS = 13 &*ERROR NuMBER 102 Is ONLY AN ILLEGAL 
* DOLLAR OPTION WARNING & 
z *ERROR NUMBER 100 ALONE SHOULD NOT 
ELSE LISTOPTION t= Cay" ELSE 


ae 


END 
ELSE ERACR(102)3 
IF ERR(102) THEN 
WRITECLINEsERRORIOQMESS)3 
$ 
$ 
c"102 ***WARNING ONLY» ILLEGAL DOLLAR OPTION,"),» 
$# PATCH 800 FOR PASCAL eXVIeOeCONTAINS 10 CARDS. 
$: TO REMOVE CONFLICTS BETWEEN HERIQT#=WATT & NATAL EXISTING PATCHES. 
$1 
MAXSYMS = g00#» ZMAX NUMBER OF SYMBOLS IN ONE EXPRESSION, 
MAXPNTRS = 258; %MaAX NUMBER OF UNDECLARED POINTERSCFORWD). 
DEFIn€ ERRCERRI) = BOOLEANCOSERRPECERR1 2 0f622))(O2(CCERR1)e1425))819)83 
INTEGER EXPRLEVEL» EXPINVARCNTS % 
INTEGER INDEX» CTYPE, NUMFORWARDS»TX, I3 & 
INTEGER PROGNAMELENGTHS 3% 
IF ERRC100) & 
"3 ALGOL FILE TAPE®PASCRUN/DISK SERIAL} ALGOL FILE CARD=", 
PCPALGOLNAME Da"/"sRPC(PUSERI 9” SERIALJZ"s & 
* yALGOL STACK = 20483 END,"™3 & 
$# PaTcH 998 FOR PaScaLeXVIeO CONTAINS 10 CARDSe INSERT PAGE THROWS aT 


10188751 
20181600 
20181610 
20181628 
20181650 
30265000 
30280800 
30280810 
90090710 
90090720 
90110000 
90111000 
91106900 


10052000 
10056000 
10156100 
40018000 
80403000 
90013900 
90090600 
90119000 
90120000 
90120500 
DESIRED 


$1 PATCH TO INSERT PAGE THROWS AT DESIRED POINTS IN THE SOURCE To PRODUCE A 


$3 NICELY LAID OUT LISTING, 

$3 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

NILS A OTTE> UNIVERSITY OF NATAL» DURBAN. AUG = NOV 1977, 


FHF RHRH HAAR FARE A 
St ae «0 


PATCH 999 FOR PaSCalsXV1.0. CONTAINS 1 CARDSe VERSION NUMBER, 
$t 
DEFINE EDITION = "4, 4"#3 ZAUGUST 1978 ee,0AVID A COOPER«,. 


LABEL OOOCOOOOOL INE 00178299CC EX O/RSCOMMON=45F ILE LINE=LINE PRINTSF ILE S=PATCHES/PASCALSENDe 


19000000 
20290000 
29000000 
39000000 
49000000 
59000000 
69000000 
79000000 
89000000 
90070999 


10028000 


7R 


